Пожалуйста посчитайте с заданием..........................................

PascalABC.Net

var a,b:integer;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
if a>b then
writeln('Наибольшее — ', a)
else
writeln('Наибольшее — ', b);
end.