Помогите пожалуйста! Нужно написать программу, которая присваивает "y" значение большее...

Question

Помогите пожалуйста! Нужно написать программу, которая присваивает "y" значение большее из 3 чисел введеных с клавиатуры.
Заранее спасибо за ответ :-*

Answer 1

var a, b, c, y, d:integer;
begin
   read (a, b, c);
   if a
      begin
      d:=a;
      a:=b;
      b:=d;
      end;
   if b
      begin
      d:=c;
      c:=b;
      b:=d;
      end;
   if a
      begin
      d:=a;
      a:=b;
      b:=d;
      end;
   y:=a;
   writeln(y);
end.