vara,b:integer;beginwrite('Введите первое число: ');readln(a);write('Введите второе число: ');readln(b);if a>b then writeln('Меньшее число: ',b) else writeln('Меньшее число: ',a)end.
var
a,b:integer;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
if a>b then writeln('Меньшее число: ',b)
else writeln('Меньшее число: ',a)
end.