Bilesiye kadar şifreyi sorar

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.

bu komutları pascal proramında yazarsak bir şeye şifre verdiğimizde o şifreyi bilene kadar sorar