Написать программу в паскале "даны три числа, вывести большее из них

Var a, b, c:int64;
begin
read(a);
read(b);
read(c);
if (a>b) and (a>c) then write(a);
if (b>a) and (b>c) then write(b);
if (c>b) and (c>a) then write(c);
end.