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);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);
end.