помогите. паскаль. приведите пример програмы в паскале,любую program P1 var и т.д.

var
n,x,z,i:longint;
{z:real;}
begin
writeln ('Введите количество часов инкубации');
readln(n);
x:= n div 3;
{z:=exp(ln(2) * x);}
z:=1;
for i:=1 to x do z:=z*2;
writeln('через ',n,' часов будет бактерий: ', z);
end.

program p1;
var a, b, c: integer;
readln (a, b);
c := a + b;
wrriteln (c);
end.

var a,b,c,d,e,f,k,l,v,s : array [1..5,1..5] of longint;
i,j,
x1,x2,x3,x4 : longint;
begin
clrscr;
writeln('Решить систему уравнений');
writeln('a11x1+a12x2+a13x3+a14x4=b1');
writeln('a21x1+a22x2+a23x3+a24x4=b1');
writeln('a31x1+a32x2+a33x3+a34x4=b1');
writeln('a41x1+a42x2+a43x3+a44x4=b1');
for j:=1 to 4 do
for i:=1 to 5 do
begin
write('a[',j,' ',i,']=');readln(a[j,i]);
end;
for i:=1 to 5 do begin
b[1,i]:=a[1,i]*a[2,1];
b[2,i]:=a[2,i]*a[1,1];
end;
for i:=1 to 5 do begin
b[2,i]:=b[1,i]-b[2,i];
end;
for i:=1 to 5 do beginwriteln('b=',b[2,i]);readln;end;
{2-я строка с нулевым 1-м элементом}
for i:=1 to 5 do begin
c[1,i]:=a[1,i]*a[3,1];
c[3,i]:=a[3,i]*a[1,1];
end;
for i:=1 to 5 do begin
c[3,i]:=c[1,i]-c[3,i];
end;
for i:=1 to 5 do beginwriteln('c=',c[3,i]);readln;end;
{третья строка снулевым 1-м элементом}
for i:=1 to 5 do begin
d[1,i]:=a[1,i]*a[4,1];
d[4,i]:=a[4,i]*a[1,1];
end;
for i:=1 to 5 do begin
d[4,i]:=d[1,i]-d[4,i];
end;
for i:=1 to 5 do beginwriteln('d=',d[4,i]);readln;end;
{4-я строка снулевым 1-м элементом}
for i:=2 to 5 do begin
e[2,i]:=b[2,i]*c[3,2];
e[3,i]:=c[3,i]*b[2,2];
end;
for i:=2 to 5 do begin
k[3,i]:=e[2,i]-e[3,i];
end;
for i:=1 to 5 do beginwriteln('k=',k[3,i]);readln;end;
{3-я строка с 0 1 и 2}
for i:=2 to 5 do begin
l[2,i]:=b[2,i]*d[4,2];
l[4,i]:=d[4,i]*b[2,2];
end;
for i:=2 to 5 do begin
l[4,i]:=l[2,i]-l[4,i];
end;
for i:=1 to 5 do beginwriteln('l=',l[4,i]);readln;end;
{4-я с 0 1 и 2}
for i:=3 to 5 do begin
v[3,i]:=k[3,i]*l[4,3];
s[4,i]:=l[4,i]*k[3,3];
end;
for i:=3 to 5 do begin
f[4,i]:=v[3,i]-s[4,i];
end;
for i:=1 to 5 do beginwriteln('f=',f[4,i]);readln;end;
{4-я с 0 1,2,3}
if (f[4,1]=0)and(f[4,2]=0)and(f[4,3]=0)then begin
x4:=f[4,5] div f[4,4];
x3:=(k[3,5]-k[3,4]*x4)div k[3,3];
x2:=(b[2,5]-b[2,3]*x3-b[2,4]*x4)div b[2,2];
x1:=(a[1,5]-a[1,2]*x2-a[1,3]*x3-a[1,4]*x4)div a[1,1];
writeln('x1=',x1);
writeln('x2=',x2);
writeln('x3=',x3);
writeln('x4=',x4);end
else write('Решений нет или очень много');
readln;
end.

program p1;
var a: string;
begin
a:='Hello world!';
writeln(a);
readln;
end.