Задача по информатике. Паскаль.

Молодец, спасибо.

var a,b,c,max:integer;beginread(a,b,c);if (a>b) and (a>c) then max:=a; if (b>c) and (b>a) then max:=b; if (c>a) and (c>b) then max:=c; writeln(max);end.