составьте программу для вычисления суммы: 3+6+9...+27

var s:integer;

begin

for i:=3 to 27 do begin

if i mod 3=0 then s=s+i;

end;

writeln(s);

end.