Помогите, пожалуйста. Нужно написать программу для Паскаль. Ввести пять чисел и…

Помогите, пожалуйста. Нужно написать программу для Паскаль. Ввести пять чисел и найти наибольшее из них. Я тут написал кое-что, но не знаю правильно ли HELP ME.program ru; var a,b,c,d,e,max: integer; beginwritln ('Введите пять целых чисел'); if a>b then beginmax: =a; endelse beginmax: =b; end; if max>c then begin max: =max; else begin max: =c; end; if d>e then beginmax: =d; endelse beginmax: =e; end.