В операторі for...to...do крок зміни лічильника циклу завжди дорівнює:

путь по озеру равен   v * t1

скорость при движении против течения равна  v - u

путь по реке равен  (v - u) * t2

общий путь, пройденный лодкой  s = v * t1 + (v - u) * t2

program pr;

var mas: array[1..40] of integer;

i, sum: integer;

begin

randomize;

for i: =1 to 40 do mas[i]: =random(20);

for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

программу проверил все работает

линейный (следования)

разветвляющийся (развилка)

циклический

месяцы,каждый месяц в каждом времени года-это и есть классификация