Помогите пожалуйста с программой в КуМире

Ввести три числа и найти наибольшее из них.
Пример:
Введите три числа:
4 15 9
Наибольшее число 15

Var a, b, c: integer;begin writeln('Введите три числа:'); readln(a, b, c); if (a > b) and (a > c) then writeln(a); if (b > a) and (b > c) then writeln(b) else writeln(c)end.