Найти максимальное из 4 вводимых значений a, b, c, d? помогите пожалуйста...

var a,b,c,d,max:integer;beginwriteln('Vvedite chusla');readln(a,b,c,d);max:=a;if max<b then max:=b;if max<c then max:=c;if max<d then max:=d;writeln('max=',max);end.