program MaxNumber;
var
a, b, c, max: integer;
begin
write${}^{\prime }Введитепервоечисло{:}^{\prime }$;
readln$a$;
write${}^{\prime }Введитевтороечисло{:}^{\prime }$;
readln$b$;
write${}^{\prime }Введитетретьечисло{:}^{\prime }$;
readln$c$;
if (a >= b) and (a >= c) then
max := a
else if (b >= a) and (b >= c) then
max := b
else
max := c;
writeln${}^{\prime }Наибольшеечисло{:}^{\prime },max$;
end.

Программа позволяет ввести три числа и определяет наибольшее из них, выводя его на экран.