Program elenco

informatica

Program elenco;

uses wincrt;

Var

N:string [20];

E,NP,conta:integer;

Begin

conta:=0;

Writeln ('Dammi il numero delle persone');

Readln(NP);

while NP>0 do

begin

Writeln ('Dammi il nome');

Readln(N);

Writeln('Dammi l eta');

Readln(E);

if e>18

then

conta:=conta+1;

NP:=NP-1;

end;

Write('Il numero dei maggiorenni e'' ',conta);

Readln;

END.