Задание

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

  • 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.