Средний тестовый учеников, которые проходили тестирование по обществознанию. ответ запишите с точностью не менее двух знаков после запятой. *

var
t,o:array [1..30] of integer;
d,s,i:integer;
begin
randomize;
writeln ('Kol-vo osadkov: ');
for i:=1 to 30 do begin
o[i]:=random(20);
write (o[i],' ,');
if i=15 then writeln;
end;
writeln;
writeln ('Temperatura vozduxa: ');
for i:=1 to 30 do begin
t[i]:=random(26)-15;
if (t[i]>0) and (o[i]<>0) then d:=d+o[i] else
if (t[i]<0) and (o[i]<>0) then s:=s+o[i];
write (t[i],',');
if i=15 then writeln;
end;
writeln;
writeln ('Kol-vo osadkov v vide snega: ',s);
writeln ('Kol-vo osadkov v vide dozhdya: ',d);
readln;
end.

Program Polik1907;
uses crt;
Var
  tur:real;
  mes:integer;
begin
  writeln('');
  writeln('*    Мы рады приветствовать вас       *');
  writeln('*         в нашем турагентстве        *');
  writeln('*         P O L I K   1 9 0 7         *');
  writeln('*               ! ! !                 *');
  writeln('');
  writeln();
  writeln('Введите базовую стоимость путёвки: ');
  readln(tur);
  writeln('month Введите номер месяца: ');
  readln(mes);
  case mes of
    1,5,10: writeln('Стоимость вашей путёвки составит ',tur,'  рублей');
    6,7,8,9:  writeln('Стоимость вашей путёвки составит ',tur*1.2,'  рублей');
    2,3,4,11,12:  writeln('Стоимость вашей путёвки составит ',tur*0.8,'  рублей');
    else writeln('Введите правильный номер месяца');
  end;
end.