Склавиатуры вводятся 20 чисел. найти произведение чисел кратных 5. найти количество неотрицательных чисел. решить эту надо в turbo pascal, методом repeat until или while if

Отметь как лучшее! program qq; var a: array[1..20]of integer;   i,n,pro: integer; begin   for i : = 1 to 20 do begin   readln(a[i]);   end;     pro : = 1;       for i : = 1 to 20 do begin          if a[i] mod 5 = 0 then                  pro : = pro * a[i];           end;             if a[i] > = 0 then            n : = n + 1; end.  

Цикл for

program raf105;

var n,a,x,i: integer;

begin

write('введите количество учеников: ');

readln(n);

writeln('вводите кол во правильно решённых вопросов учеников по очереди: ');

for i: =1 to n do

begin

  readln(a);

  if a< 5

    then x: = x+1;

end;

writeln('учениками было получено ',x,' неудовлетворительных оценок');

end.

цикл while

program raf105;

var n,a,x,i: integer;

begin

write('введите количество учеников: ');

readln(n);

writeln('вводите кол во правильно решённых вопросов учеников по очереди: ');

while i< > n do

begin

  i: = i+1;

  readln(a);

  if a< 5

    then x: = x+1;

end;

writeln('учениками было получено ',x,' неудовлетворительных оценок');

end.

цикл repeat

program raf105;

var n,a,x,i: integer;

begin

write('введите количество учеников: ');

readln(n);

writeln('вводите кол во правильно решённых вопросов учеников по очереди: ');

repeat

  i: = i+1;

  readln(a);

  if a< 5

    then x: = x+1;

until i=n;

writeln('учениками было получено ',x,' неудовлетворительных оценок');

end.

язык pascalabc

#include

using namespace std;

int main()

{

    int num1, num2, num3;

    cout < < "введите 3 числа: ";

    cin > > num1 > > num2 > > num3;

    cout< < "максимальное из введённых - ";

    if ((num1 > = num2) & & (num1 > = num3)) {

        cout < < num1;

    } else if ((num2 > = num3) & & (num2 > = num1)) {

        cout < < num2;

    } else {

        cout < < num3;

    }

}