Даны три целых числа. Вывести на экран величайшее из 3-х введенных

Var a,b,c:integer;
Begin
Write('Введите три целых числа: ');ReadLn(a,b,c);
if bgt;a then a:=b;
if cgt;a then a:=c;
WriteLn(a);
End.

Program GH;
Var a,b,c,max:integer;
Begin
Writeln ('введите а ');
Read (a);
Writeln ('введите b');
Read (b);
Writeln ('введите c');
Read (c);
Begin
If agt;b and agt;c then max:=a
Else if bgt;c then max:=b
Else max:=c ;
End;
Writeln('наибольший элемент равен',max);
End.