program eee;
var
a,b,c,d,e,f,g,s:integer;
begin
readln;
a:=3;
b:=6;
c:=9;
d:=12;
e:=15;
f:=18;
g:=21;
s:=3+6+9+12+15+18+21;
writeln(s);
end.

вдруг кому нужно будет