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

Var a, b, c:integer;Begin Writeln('vvedite chisla');Readln(a,b,c);If (a>b) and (a>c) then writeln(a);If (b>a) and (b>c) then writeln(b);If (c>a) and (c>b) then writeln(c);End.