09 Ariketa INTEGER, Pascal

Language: Layout:

program Ariketa09;

var z1,errepikapenak,haurrak,gazteak,helduak,zaharrak:integer;

begin
    writeln('Idatzi 10 pertsonen adina');  
    errepikapenak:=0;
    haurrak:=0;
    gazteak:=0;
    helduak:=0;
    zaharrak:=0;
    repeat
        begin 
        read(z1);
        errepikapenak:=errepikapenak+1;
        if (z1>0)and(z1<13) then
            begin
                haurrak:=haurrak+1;
            end
        else
             if (z1>12)and(z1<30) then
                 begin
                  gazteak:=gazteak+1;
                 end
             else  
                 if (z1>29)and(z1<60) then
                     begin
                         helduak:=helduak+1;
                     end
                 else
                     begin
                         zaharrak:=zaharrak+1;
                     end
                    end
    until errepikapenak=10;              
writeln('haurrak ',haurrak,' dira.');
writeln('gazteak ',gazteak,' dira.');
writeln('helduak ',helduak,' dira.');
writeln('zaharrak ',zaharrak,' dira.');
end.

Show compiler warnings [ - ] Show input
Compilation time: 0.12 sec, absolute running time: 0.07 sec, cpu time: 0.01 sec, memory peak: 3 Mb, absolute service time: 0,28 sec