Пример алгоритма содержащего повторение

Пример: сколько яблок соберет петя за n дней, если в день собирает по 5 яблок. паскаль: var a,i,n: integer; begin readln(n); for i: =1 to 5 do a: =a+5; write(a); end. java: import java.util.scanner; class main{       public static void main(string args[]){             scanner scn = new scanner(system.in);             int a = scn.nextint();             int b = 0;             for (int i = 0; i < a; i++){                   b = b + 5;             }             system.out.println(b);       } }

Var        d1, v1: integer;         d2, p2, v2, w: integer;         t1, t2: real; begin        readln(d1,v1);         readln(d2,p2,v2,w);             t1: = d1 / v1;         t2: = (d2 - p2) / v2 + (p2 / w);   if (t1 < t2) then            write('1')        else if (t2 < t1) then            write('2')        else            write('0');   end.

//pascal abc.net v3.1 сборка 1219 //как я понял, количество очков случайно var   a,i,s: integer; begin   randomize;   for i: =1 to 5 do   begin     a: =random(11);     writeln(i,' выстрел -',a);     s: =s+a;   end;   writeln('сумма=',s);   if s=50 then writeln('идет с зиночкой в ресторан') else writeln('на тренировку в тир'); end. пример работы программы: 1 выстрел -3 2  выстрел -10 3 выстрел -7 4 выстрел -8 5 выстрел -0 сумма=28 на тренировку в тир