Информатика. 1 задание.

Var a,n: integer;
begin
n:=1;
readln(a);
for var i:=2 to a-1 do
begin
if (a mod i = 0) then
begin
n:=0;
break;
end;
end;
if (n = 1) then
write('Число ',a,' является обычным')
else
write('Число ',a,' является составным')
end.

var a,s: integer;
begin
readln(a);
while agt;0 do
begin
readln(a);
if (a mod 3 = 0) and (a mod 2 = 0) then
s:=s+a;
end;
if (s lt;gt;0) then
writeln('Сумма четных чисел,делящихся на 3 :',s)
else
writeln('Не найдено');
end.

var s:integer;
var  a: array [1..20] of integer;
begin
for var n:=1 to 20 do
begin
readln(a[n]);
if (a[n]gt;=180)then
s:=s+1;
end;
write(s);
end.