Question

Составьте программу для определения наименьшего из 2-х целых чисел.

Answer 1

Var a,b:integer;
beginwriteln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(b);
if a>=b then writeln('Наименьшее число равняется ',b)
else writeln('Наименьшее число равняется ',a);
end.