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

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