Program low;
var a,b,c,d,e,min:integer;
begin
writeln('Введите 5 чисел:');
read(a);
read(b);
read(c);
read(d);
read(e);
min:=a;
if bif cif dif ewrite('Минимальное: ');
writeln(min);
end.

 Program cl;
Var
    A:array[1..N]of integer;
    x,i:integer;
Begin
   For i:=1 to N do
      begin 
               write('vvesti element')
               Read(A[i]);
      end;
For i:= 1 to N do
Writeln(A[i],' ');
Writeln;
min:=A[1];
For i:=1 to N do
  begin
         min>A[i] then
         min:=A[i]
  end:
End.