Question

Даны целые числа a b.Найти минимальное из них и вывести в переменную min

Answer 1

var
a,b,min:real;
begin
write('А - ');
readln(a);
write('B - ');
readln(b);
if a<b then min:=a
 else min:=b;
writeln('Min - ',min);
end.