Şifreleme

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.

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

� ifreleme