Напишите программу на определение наибольшего числа из трех (по паскалю)

var a,b,c:integer; begin read(a,b,c); if (a > b) and (a > c) then write(a) else if (b > a) and (b > c) then write(b) else write(c); end.