uses crt; var a:string[10]; b:integer; begin while a<>'okan' do begin b:=b+1; write('Sifre giriniz >'); readln(a); end; writeln(b,' incide Sifreyi bildin'); readln end.