Пожалуйста помогите составить программу по блок схеме в Паскале!!!

var a,b,c,max:integer;
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);
end.

Пример:
a, b, c:
3 8 5
max = 8