var
n1,n2,n3,min:word;
begin
write ('N1= ');readln(n1);
write ('N2 = ');readln(n2);
write ('N3 = ');readln(n3);
if (n1<n2) and (n1<n3) then min:=n1 else
if (n2<n1) and (n2<n3) then min:=n2 else min:=n3;
writeln ('Min: ',min);
readln;
end.
uses crt;
var a,b,c,min:integer;
begin
writeln('Введи три числа: ');
readln(a,b,c);
min:=a;
if b<min then min:=b;
if c<min then min:=c;
writeln('Наименьшее из этих чисел: ',min);
readln;
end.
