Pascal ABCСоставить программу. С клавиатуры вводится 3 числа. Отыскать наибольшее ПО

var a,b,c:integer;

begin

readln (a,b,c);

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

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

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

end.