var i,a,m:integer;
begin
write ('Введите число: ');
readln (a);
m:=a;
for i:=1 to 19 do
if a<m then m:=a
end;
writeln ('Наименьшее: ',m)
end.
var i,a,m:integer;
begin
write ('Введите число: ');
readln (a);
m:=a;
for i:=1 to 19 do
begin
write ('Введите число: ');
readln (a);
if a<m then m:=a
end;
writeln ('Наименьшее: ',m)
end.