Programalama > PASCAL

program tek_cift_2;
uses crt;
type
    sayi = set of 0..9;
var
   ch : char;
   teksay, ciftsay : string;
   i, j : shortint;
begin
     clrscr;
     {$R+}
     write('Ltfen bir metin giriniz...>');
     while not eoln do
           begin
                read(ch);
                if ch in ['1','3','5','7','9'] then
                     begin
                          i := i + 1;
                          teksay := teksay + ch;
                     end
                else
                     begin
                          j := j + 1;
                          ciftsay := ciftsay + ch
                     end;
           end;
     readln;
     writeln;
     writeln('tek say adeti ', i, ' dir. ', 'Ÿunlardr > ', teksay);
     writeln;
     writeln('‡ift say adeti ', j, ' dir. ', 'Ÿunlardr > ', ciftsay);
     readln;
end.