arkadaslar odevimde tc kimlk numarası girerken harf girincede kabul ediodu bi arkadasım bunu halletti yalnız ad-soyad girerkende aynı sorun var rakam girince kabul ediyo bu sorun hakkında sizlerden yardm isticektim Kod: uses crt; label don, basla; var x:integer; ucret:real; tc, ad, soyad:string; numara:byte; begin clrscr; write ; readln ; x:=length ; if x>=12 then else begin clrscr; writeln('Yanlis Giris Yaptiniz!... TC Kimlik Numaranizin 11 Haneli Olmasi Gerekiyor'); write ; readln ; end; if x<11 then begin clrscr; writeln('Yanlis Giris Yaptiniz!... TC Kimlik Numaranizin 11 Haneli Olmasi Gerekiyor'); write ;readln ; end; write ;readln ; write ;readln ; writeln; gotoxy(18,7);write ; gotoxy(25,10);writeln('1- SSK'); gotoxy(25,11);writeln('2- EMEKLI SANDIGI'); gotoxy(25,12);writeln('3- BAGKUR'); gotoxy(25,13);writeln('4- DIGER'); writeln; writeln; don: write('Sahip oldugunuz Sosyal Guvenlik Durumunun Numarasini Giriniz ...:'); readln ; if numara<=4 then goto basla else goto don; basla: if numara=1 then ucret:=70-(70 0.05) else if numara=2 then ucret:=70-(70 0.06) else if numara=3 then ucret:=70-(70 0.07) else ucret:=70; writeln; writeln; writeln(tc,' Kimlik Numarali ', ad,' ', soyad,' Isimli Kisinin ', ucret:6:3,' Lira Borcu Vardir'); readln; end. end. -