Kullanıcı Adı ve Şifre Programı(PASCAL)

[ALpMontana]

Kullanıcı adı doğru girilene kadar kullanıcı adını soruyor. Kullanıcı adı doğru bilindiğinde şifreyi soruyor. Şifre de doğru bilindikten sonra, kaç denemede kullanıcı adını ve kaç denemede şifreyi bildiğinizi söylüyor.
Uses Wincrt;

Var
KAdi,Sifre:String;
k,s:Integer;
Secim:Char;

Begin

Repeat
ClrScr;
k:=k+1;
WriteLn('Kullanıcı Adınızı giriniz');
ReadLn(KAdi);
If KAdi='kullanici_adi' Then
Begin
Repeat
ClrScr;
s:=s+1;
WriteLn('Şifrenizi giriniz');
ReadLn(Sifre);
If Sifre='huzur islamda' Then WriteLn(k,'. denemede kullanıcı adını ',s,'. denemede şifreyi doğru bildiniz');
Until Sifre='sifre'
End;

Until (Secim='5') or (sifre='sifre');

End.