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

Если числа целые:program n;vara,b: integer;beginreadln(a);readln(b);if a>b then write(a) else write(b);end.Если предполагается ввод нецелых чисел, то в объявление переменных (var a,b: integer;) надо поменять integer на real.