// Задача 5
var
  a,b,c :integer;
begin
writeln('Введите три числа');
readln(x,y,z);
if a < b then  a:=b;
if a < c then  a := c;
writeln('Наибольшее число = ', a);
readln;
end.