Вычислить значение выражения

uses crt;
const n=5;
var a,b:array[1..n,1..n] of boolean;
    c:array[1..n] of byte;
    i,j:byte;
    f:boolean;
begin
clrscr;
randomize;
writeln('Матрица А:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(2)=0;
    write(a[i,j]:6);
   end;
  writeln;
 end;
writeln('Матрица B:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    b[i,j]:=random(2)=0;
    write(b[i,j]:6);
   end;
  writeln;
 end;
for i:=1 to n do
 begin
  j:=1;
  f:=false;
  while(j<=n)and not f do
  if b[i,j]=a[i,j] then f:=true
  else inc(j);
  c[i]:=ord(f);
 end;
writeln('Вектор:');
for i:=1 to n do
write(c[i],' ');
readln
end.

uses crt;
var x,e,s,t:real;
    n:integer;
begin
clrscr;
x:=0.3;
e:=0.001;
n :=0;
s:=1;
t:=1;
while abs(t)>e do
 begin
  n:=n+1;
  t:=t*x/n;
  s:=s+t;
 end;
writeln('S=',s:0:4);
write('exp=',exp(x):0:4);
readln
end.