@.:: Discutiamo.com ::. @

program minori;
var
N,C,min,ETA:integer
begin
repeat
writeln('Dammi n' );
readln(N);
until (N>0);
min:=0;
for(C:=0)to N Do;
begin
repeat
writeln('Inserisci eta');
readln(ETA);
until(ETA>o);
if(ETA<18)then
begin
min:=min + 1;
end;
end;
writeln('I minorenni sono');
writeln(min);
readln;
end.