Question

Составьте программу, которая вводит с клавиатуры два числа a, b и определяет минимальное из них.

Answer 1

program z1;
var a,b:integer;
begin
writeln('Введите 2 числа:');
readln(a,b);
if a<b then 
write('Меньшее число:',a);
if b<a then 
write('Меньшее число:',b);
end.