Помогите решить задачу по ИВТ на языке паскаль

Program z1; vara1,a2,a3,a4,a5,ab1,ab2,ab3,max1: integer; beginwriteln ('Введите 5 чисел'); readln (a1,a2,a3,a4,a5); ab1: =max (a1,a2); ab2: =max (a3,a4); ab3: =max (ab1,ab2); max1: =max (ab3,a5); writeln (max1); end.