Напишите пожалуйста циклическое уранение задачи:спортсмен в 1 день пробежал 10 км,а в...

Question

Напишите пожалуйста циклическое уранение задачи:спортсмен в 1 день пробежал 10 км,а в последующина дни на 5 км больше всего он бегал 10 дней,сколько км он пробежал за 10 дней?

Answer 1

ВАРИАНТ 1
var
a1,s,d,n:real;

begin
a1:=10;
d:=5;
n:=10;
s:=(2*a1+d*(n-1))/2*n;
writeln(s);
end. 
=============================
ВАРИАНТ 2 
var
a1,s,d,n:integer;

begin
n:=10;
s:=0;
d:=5;
a1:=10;
for var i:=1 to n do begin 
s:=s+a1; 
a1:=a1+d;
end;
writeln(s);
end.