задачя

[Санеk]

Вася 7 дней решал задачи. В первый день он решил 5 задач, а в каждый следующий день он решал на 2 задачи больше, чем в предыдущий. Успел ли Вася решить 70 задач.

Вводимые данные: 7 5 2 70
Выходные данные: ДА
ПОМОГИТЕ РЕШИТЬ ОЧ НАДО!!!

[Санеk]

мои наработки:
program qq;
var a, i: integer;
begin
a:=5;
for i:= 1 to 6 do
a:=a+2;
if a<=70 then writeln ('да')
else writeln ('нет');
end.

[Alex11223]

s:=5; a:=5;
for i:=2 to 7 do
begin
   a:=a+2;
   s:=s+a;
end;
if (s<70) then вывести нет 
   else вывести да

[Санеk]

а можете прописать полностью программу

[Alex11223]

А что тут писать? s объявите и вставьте в саму программу (между бегин и энд.) код (естественно "вывести" заменив на writeln как у вас)