Question

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

Answer 1

begin
var (a,b):=ReadInteger;
if a>b then write(a) else write(b);
end.

Answer 2

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

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.