Заданы переменные а, b, с. написать программу вычисления iai+ibi+ici. i i - модуль

Program q;
var a,b,c,d:integer;
begin
writeln('введите три числа');
readln(a,b,c);
d:=abs(a)+abs(b)+abs(c);
writeln(d);
end.
надеюсь ты знаешь что такое abs