Входные данные: два числа типа int Вывод: а) большее из них в) меньшее из них
Должно подойти, как ответ: Program asd; Var x,y:integer; Begin read(x); read(y); if x>y then Write('Наибольшее число: ',x,'. Наименьшее число: ',y); if y>x then write('Наибольшее число: ',y,'. Наименьшее число: ',x); End. Надеюсь, помог.