program MaxNumber;

var
num1, num2, num3, max: integer;

begin
// вводим три числа с клавиатуры
write${}^{\prime }Введитепервоечисло{:}^{\prime }$;
readln$num1$;

write${}^{\prime }Введитевтороечисло{:}^{\prime }$;
readln$num2$;

write${}^{\prime }Введитетретьечисло{:}^{\prime }$;
readln$num3$;

// предполагаем, что первое число - наибольшее
max := num1;

// сравниваем второе число с максимальным
if num2 > max then
max := num2;

// сравниваем третье число с максимальным
if num3 > max then
max := num3;

// выводим наибольшее число
writeln${}^{\prime }Наибольшеечисло{:}^{\prime },max$;

end.