Даны три числа a,b,c. значение большего из них присвойте значение d на паскале

Var
    a, b, c, d: integer;
 
begin
    write ('Введите три числа: ');
    readln (a, b, c);
 
    if a >= b then
        d := a
    else
        d := b;
 
    if c > d then
        d := c;
 
    writeln ('Максимальное из них: ', d);
 
readln
end.