Составить программку решения задачки: Спортсмен в 1-ый день пробегает 5 км,

var
   i, x, y : integer;                   // объявляем переменные целочисленного типа.
begin
   x := 5;                              // пробег спортсмена в 1-ый денек.
   for i := 2 to 10 do              // в цикле считаем пробег со 2-го по 10-й денек.
      begin
         x := x + 10;               // увеличиваем пробег за каждый день на 10 км.
         if i = 10 then writeln(За 10-й денек спортсмен пробежал: , x, км.);   // пробег за 10-й день.
         y := y + x;                // считаем общую сумму пробега за 10 дней.
       end;
    writeln(Сумма пробега спортсмена за 10 дней сочиняет: , y + 5, км.);// вывод ответа.
end.