program min;
var a,b: integer;
uses crt;
begin
clrscr;
writeln('введите 1-е число: ');
read(a);
writeln('введите 2-е число: ');
read(b);
if(a< =b) then writeln(' минимальное число: ', a)
else
writeln(' минимальное число: ', b)
end.
program min;
var a,b: integer;
uses crt;
begin
clrscr;
writeln('введите 1-е число: ');
read(a);
writeln('введите 2-е число: ');
read(b);
if(a< =b) then writeln(' минимальное число: ', a)
else
writeln(' минимальное число: ', b)
end.