вивести менше з двох даних чисел
Var A,B:integer; Begin Write('Введите два числа: ');ReadLn(A,B); if Aelse Write(B) End.