09 ariketa, Pascal

Language: Layout:

//fpc 3.0.0

program 09;

var a,t1,t2,t3,t4,i:integer;

begin
    t1:=0;
    t2:=0;
    t3:=0;
    t4:=0;
    for i:=1 to 10
     begin
      Repeat
       writeln('Idatzi hurrengo pertsonaren adina');
       readln(a);
       if (a<0)or(a>12) then 
        begin
         writeln('Sartutako adinak ez dirudi zuzena.Saiatu zaitez berriro');
        end;
      until (a>0=) and (a<125);
      if (a>=0) and (a<=12) then
       begin
        t1:=t1+1;
       end
      else
        begin
          if (a>=13) and (a<=29) then
           begin
            t2:=t2+1;
           end;
          else
           begin
             if (a>=30) and (a<=59) then
               begin
                t3:=t3+1;
               end;
             else
              begin
               t4:=t4+1;
              end;
           end;
         end;  
     end;
 writeln('0-12 tartean ',t1,'pertsona daude');
 writeln('13-29 tartean ', t2,' pertsona daude');
 writeln('30-59 tartean ',t3,' pertsona daude');
 writeln('60tik gora ',t4,'pertsona daude');    
end.

Show compiler warnings [ + ] Show input
Compilation time: 0.12 sec, absolute service time: 0,21 sec