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

var a, b, c:int64;beginread(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.