Паскаль АВС :

дано 2 числа а,б вивести найменше з них​

program meister;

var a,b:integer;

begin

writeln('Введите a: ');

readln(a);

writeln('Введите b: ');

readln(b);

if a< b then writeln("больше число a")

else writeln("больше число b");

end.

begin var (a,b) := ReadInteger2; if a<b then print('Найменше:',a) else if a>b then print('Найменше:',b) else print('Они равны') end.

Пример работы: