информатика паскаль 9 класс

На 4:

var i,x,oc:integer;s:real;

begin

 readln(x);

 s:=0;

 for i:=1 to x do

 begin

   oc:=random(5)+1;

   s:=s+oc;

 end;

 writeln(s/x);

end.

На 5:

var i,s,ch,min:integer;

begin

 s:=3;

 for i:=3 to 30 do

 begin

   s:=s+2;

 end;

 ch:=s div 60;

 min:=s-ch*60;

 writeln('Часов ',ch,' минут ',min);

end.