quesito 5

ecco il programma del 5 esercizio della veri di informatica..

program frequenza;
var eta,i: integer;
f:array[1..6] of integer;
begin
for i= to 6 do f[i]:0;
repeat write(‘età (0 per finire) :’);
read(eta);
if (eta)0)and(eta=trunc(eta)) then
case eta of
1..19: inc(f[1]);
20..29: inc(f[2]);
30..39: inc(f[3]);
40..49: inc(f[4]);
50..59: inc(f[5]);
else inc(f[6]);
end;
(*case*) until eta=0;
writeln(‘ 0..19:’ ,f[1]);
for i:=2 to 5 do writeln(i*102,’..’,9+i*10:2,’:’,f[i]);
writeln(’60.. :’,f[6]);
end.