вводятся два числа не равные 0 вывести наибольшее паскаль

Если числа целые:

program n;
var
a,b: integer;
begin
readln(a);
readln(b);
if a>b then
write(a)
else write(b);
end.

Если предполагается ввод нецелых чисел, то в объявление переменных (var a,b: integer;) надо поменять integer на real.