Сообщение набранное на компьютере занимает 75 страниц по 25 строк в каждой строке записано буквами из 128 символьного алфавита

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.

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

v=331+0.6t

в зимний день- v=331+0.6*(-35)=310 м/с

в летний день- v=331+0.6*30=349 м/с