09 Ariketa WHYLE, Pascal

Language: Layout:

program Ariketa;

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

begin
    errepikapenak:=1;
    haurrak:=0;
    gazteak:=0;
    helduak:=0;
    zaharrak:=0; 
    writeln('Idatzi 10 pertsonen adina');
    while errepikapenak<=10 do
        begin
        errepikapenak:=errepikapenak+1;
        read(z1);
            if (z1<13) then 
                begin 
                    haurrak:=haurrak+1;
                end
            else
                begin
                    if (z1<30) then 
                        begin 
                            gazteak:=gazteak+1;
                        end
                    else
                        begin
                            if (z1<60) then
                                begin
                                    helduak:=helduak+1;
                                end
                            else
                                begin
                                    zaharrak:=zaharrak+1;
                                end
                            end;
                    end;
            end;        
writeln('haurrak ',haurrak,' dira eta gazteena da');
writeln('gazteak ',gazteak,' dira eta gazteena da');
writeln('helduak ',helduak,' dira eta gazteena da');
writeln('zaharrak ',zaharrak,' dira eta gazteena da');
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