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

Uses crt; var a,b,c,d: integer; beginwriteln ('Введи числа: '); read (a,b,c,d); writeln; write ('Наибольшее из введенных чисел: '); if ac then write (a) else write (c); end.