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

1.  а=5 (считает слова) 2.  d=1 (считает дни) 3.  если d < = 10, 4.  то перейти к п. 4, 5.  иначе перейти к п.6 6.  а = а + 2 d = d + 1 7.  вывод а 8.  конец

Program vasil ; var n , m  : integer ; begin   write ( 'vvedi chislo bochek n=' ) ;   readln ( n ) ;   m : = n mod 10 ;       if ( m = 1 and n < > 11  ) then writeln ( n , '  bochka' )      else if (m < = 4 and n < > 12 and n < > 13 and n < > 14 and m < > 0) then writeln ( n , ' bochki' )        else writeln ( n , ' bochek' ) ;   end.    так, наверное. если будет косяк, то пиши, или сам сообрази где ошибка. сейчас нет под рукой компилятора, не могу оттестировать. 

//pascalabc.net 3.1 сборка 1200 begin       var s : = readstring('s = ');       if s='' then s: ='какое небо голубое, какой богатенький буратино';       writeln(s);       s : = s.trim();       s : = s.replace(',', ' ');       s : = s.replace('; ', ' ');       s : = s.replace('.', ' ');       s : = s.replace('  ', ' ').replace('  ', ' ').replace('  ', ' ').replace('  ', ' ');       for var i : = 1 to s.length - 1 do               if s[i] = ' ' then                       s[i + 1] : = s[i - 1];       writeln(s); end.