Составить программу на Паскале, которая выводит на экран максимальное число из трёх вводимых. Срочно!

Var a,b,c,max:integer;beginreadln(a,b,c);if a>b thenmax:=a elsemax:=b ;if max>c thenmax:=max elsemax:=c;writeln('Максимальное число:', max);end.

var a, b, c: integerfunction max(a,b: integer): integer;beginif a>b then max:=aelse max:=bendbegin readln (a,b,c);writeln(max(max(a,b),c));end.

Var a,b,c,max:integer;beginreadln(a,b,c);if a>b thenmax:=a elsemax:=b ;if max>c thenmax:=max elsemax:=c;writeln('Максимальное число:', max);end.