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

P.S программа написана для Pascal.

program maxchislo;

var

 a, b, c, max : integer;

begin

 writeln('Введите первое число');

 read(a);

 writeln('Введите второе число');

 read(b);

 writeln('Введите третье число');

 read(c);  

 if a>b then

   max:=a

 else

   max:=b;

 if max>c then  

   writeln('Наибольшее число: ', max)

 else  

   writeln('Наибольшее число: ' ,c);

end.