Паскаль с тремя циклами. ввести с клавиатуры 10 чисел. если среди них есть числа, большие 35, заменить их на 0. напечатать все полученные числа.

Var a: array[1..10] of real;
    i: integer;
begin
  for i:=1 to 10 do
  begin
    write('число ',i,' ');  readln(a[i]);
  end;
{ первый цикл }
  for i:=1 to 10 do
  if a[i]>35 then a[i]:=0;
{ второй цикл 
  i:=1;
  while i<=10 do
  begin
    if a[i]>35 then a[i]:=0;
    i:=i+1;
  end;  }
{ третий цикл
  i:=1;
  repeat
    if a[i]>35 then a[i]:=0;
    i:=i+1;
  until i>10;  }  
{ печать }
  for i:=1 to 10 do write(a[i],' ');  
end.