Составьте программу которая находит махимальное из четырёх введенных с клавиатуры чисел a,b,c,d и выводит его на экран

Var
    a, b, c, d: integer;

begin
    readln(a, b, c, d);
    
    if a < b then a := b;
    if a < c then a := c;
    if a < d then a := d;
    
    writeln(a);
end.