Question

Из двух заданных чисел A и B найти минимальное.На языке Pascal пожалуйста)
Данные: A=20 B=30
A=20 B=10
Результат: M=20
M=10

Answer 1

var a,b:integer;
begin
write('Введите 1-ое число->');read(a);
write('Введите 2-ое число->');read(b);
if a<b then write('M=',a) else write('M=',b);
end.