Нахождения максимального элемента

Написать алгоритм нахождения максимального элемента из 3-х значений.

Блок – схема

Программа на Pascal

Program Pr_1;
Var a,b,c,max:real;
Begin
 Writeln(‘Введите числа a,b,c ’);
 Readln(a,b,c);
 If a>b then max:=a
 Else max:=b;
 If c>max then max:=c;
 Writeln(‘max = ’,max);
 Readln; { это задержка экрана }
End.