vara,b,i:integer;begini:=0;a:=10;b:=0;for i:=1 to 10 do begin b:=b+a; a:=a+2; end; writeln('на 10 день он пробежит ',a,'км, а всего ',b,'км');end.
var
a,b,i:integer;
begin
i:=0;
a:=10;
b:=0;
for i:=1 to 10 do
begin
b:=b+a;
a:=a+2;
end;
writeln('на 10 день он пробежит ',a,'км, а всего ',b,'км');
end.