Найти наибольшее из трех чисел

Составить программу на языке Pascal которая определяет наибольшее из 3 вводимых чисел, программу записать с помощью оператора if ... then

var a,b,c:real;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
writeln('Введите c');
readln(c);
if (a>b) and (a>c) then writeln('a - наибольшее число') else
if (b>a) and (a>c) then writeln('b - наибольшее число') else writeln('c - наибольшее число');
readln;
end.