Составить программу паскаль: вводится 2 целых числа,найти наибольшее из них

Var a, b : real;
begin
readln(a);
readln(b);
if a>b  then writeLn(a,b)
else writeln(b,a);
readln;
end.
Попробуй так