Помогите пожалуйста: написать программу нахождения наибольшего среди четырех…

var x1,x2,x3,x4: integer; function max (a,b: integer): integerbegin if a>b then max: =a else max: =b; end; Begin read (x1,x2,x3,x4); x1: =max (x1,x2); x2: =max (x3,x4); x1: =max (x1,x2); writeln (x1); End.