Задание

Расставьте операторы программы нахождения минимального числа в правильном порядке:

Program MinChislo;

Var A, I, Min : Integer;

Begin

Min:=100;

For I:=1 to 10 do

Begin

Write('Vvedite chislo ');

Readln(A);

If A < Min then Min:=A;

end;

Writeln('MIN=',Min);

end.