Решить задачу в паскале авс ..."даны 3    любых числа, вывести на экран максимальное". через оператор "if

спасибо большое!!!

var a,b,c: integer;beginwriteln('введите три числа');readln(a,b,c);if (a>b) and (a>c) then writeln('больше число ==> ',a);if (b>a) and (b>c) then writeln('больше число ==> ',b);if (c>b) and (c>a) then writeln('больше число ==> ',c);end.