Паскаль. Даны три целых числа. Выведите на экран самое большое из них.

program test;

var a,b,c: integer

begin

read(a,b,c);

writeln;

if (a>b) and (b>c) then write (a);

if (b>a) and (b>c) then write (b) else

write(c);

end.