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

var a,b,c,max:integer;beginwriteln('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 5max = 8