Урок 9 Задача 7

Урок 9 Задача 7

Пользователь вводит четыре числа, найдите из них максимальное.

var a,b,c,f: integer;
begin
     writeln('ввод числовых значений');
     readln(a,b,c,f);
           if (a>=b) and (a>=c) and (a>=f) then writeln('а максимальное = ', a);
           if (b>=a) and (b>=c) and (b>=f) then writeln('а максимальное = ', b);
           if (c>=b) and (c>=b) and (c>=f) then writeln('а максимальное = ', c);
           if (f>=a) and (f>=c) and (f>=b) then writeln('а максимальное = ', f);
     readln();
End.

// решение через end, через блоки и ветвление не получается, код писать непонятно с чего.