Сообщение от AmyFloop

Бред... нахуй было вводить переменные ?

uses crt;
var s: integer;
begin
s:=3+6+9+12+15+18+21;
writeln(s);
end.

ну или на крайняк

uses crt ;
var a,b,c,d,e,f,g,s : integer;
begin
writeln('введите числа'); // необязательно
read(a,b,c,d,e,f,g); //вводиш числа сразу в программе (любые)
s:=a+b+c+d+e+f+g;
writeln(s);
end.

так же можно решить через прогрессию но влом вспоминать как это делается.