Pascal abc составить программу. с клавиатуры вводится 3 числа. найти наибольшее по модулю.

var a,b,c:integer;

begin

readln (a,b,c);

if (abs(a)>abs(b)) and (abs(a)>abs(c)) then writeln('Наибольшее по модулю число a');

if (abs(b)>abs(a)) and (abs(b)>abs(c)) then writeln('Наибольшее по модулю число b');

if (abs(c)>abs(a)) and (abs(c)>abs(b)) then writeln('Наибольшее по модулю число c')

end.