!!!ребят, помогите пожалуйста!!!​

Код программы:

var a, b, c, max:integer;

begin

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

 readln(a);

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

 readln(b);

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

 readln(c);

 if a > b then begin

   if a > c then

     max := a

   else

     max := c;

   end

   else

     if b > c then

       max:=b

     else

     max := c;

      writeln('Максимальное число: ', max);

end.