Задача в паскале(Pascal ABC) Лыжник начал тренировки с пробегом в 10 км, каждый день он увеличивал длину пробега на 2 км. Сколько он пробжит кмна 10-ый день?
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.
