Question

Найти сумму первых семи чисел кратных 3 в pascal abc

Answer 1

Program summa;
uses crt;
var a,b,c,d:integer;
begin
a:=7;
b:=3*a;
c:=0;
for d:=1 to b do
begin
if d mod 3 = 0 then  c:=c+d;
end;
writeln('Ответ = ',d);
end.