Составте программу которая сравнивает три введённых числа и печатает большее

Var a, b, c:real; beginWrite ('Введите первое число:') ; readln (a) ; Write ('Введите Второе число:') ; readln (b) ; Write ('Введите Третье число:') ; readln (c) ; if (a>b) and (a>c) then

Writeln ('Ответ:', a) elseif (b>a) and (b>c) then

Writeln ('Ответ:', b) elsewriteln ('Ответ:', c) ;

readln; end.