На 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.