uses crt; var a:string[10]; b:integer; begin while a<>"mydesign" do begin b:=b+1; write("Şifre Giriniz >"); readln(a); end; writeln(b," incide Şifreyi Bildiniz"); readln end. crazy engineer kaya51991@hotmail.com