Напишите программу даны числа x,y получить большее и меньшее из двух

Не знаю, какой язык вы учите в школе, напишу на паскале program max; var x, y: Integer; begin if x > y then writeln(IntToStr(x)) else writeln(IntToStr(y)); readln(); end;