Вводится 5 двухзначных чисел. Программа выводит количество чисел больше 20 и кратных 3.
Паскаль. Можете полностью составить программу

program s1;

Var a,b,c,d,e:integer;

Begin

If (a>20) and (a mod 3=0) then

Writeln(a);

If (b>20) and (b mod 3=0) then

Writeln(b);

If (c>20) and (c mod 3=0) then

Writeln(c);

If (d>20) and (d mod 3=0) then

Writeln(d);

If (e>20) and (e mod 3=0) then

Writeln(e);

End.

var

 i, n, count,count2,count3: integer;

begin

 writeln('Введите 5 чисел:');

 for i := 1 to 5 do

 begin

   readln(n);

   if (n > 20) and (n mod 3=0) then

     Inc(count);  

   if n > 20 then

     Inc(count2);

   if n mod 3 = 0 then

     Inc(count3);

 end;

 writeln('Больше 20 и кратных 3: ',count);

 writeln('Больше 20: ',count2);

 writeln('Кратных 3: ',count3);

end.

сидерический год.

const

  a: array[1..6]of longint=(7,4,10,6,5,3);

var

  i: longint;

begin

for i: =1 to 6 do  write(9.8*a[i]*1200,' ');

writeln;

end.