Question

Заданы переменные а, b, с. Написать программу вычисления IaI+IbI+IcI.
I I - модуль

Answer 1

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