Составте программку в паскале нахождения наибольшего из чисел a, b, c,

Var
a, b, c, d, n : integer;
begin
write('введите 1-ое число ');
readln(a);
write('введите 2-ое число ');
readln(b);
write('введите третье число ');
readln(c);
write('введите четвёртое число ');
readln(d);
n:=a;
if bgt;n then n:=b;
if cgt;n then n:=c;
if dgt;n then n:=d;
writeln('Большее из чисел одинаково ', n);
end.