PASCAL İLE ŞİFRELİ DÖKÜMAN ÇAĞIRMA^^

//ANA İŞLEMLER ve KÜTÜPHANELER
uses crt;
var
bank,sifre:string;
label islem,hatali;

begin

//sifre
hatali:
write (' Bankalar Anahtari...: ');
readln(sifre);
if sifre='12345' then
begin
islem:
write (' Banka Isminin Ilk Harfini Yaziniz...: ');
readln(bank);
end
else
begin
writeln (' Sifre Hatali Lutfen dogru sifreyi giriniz !!!');
goto hatali;
end;

//XX BANKASI
if bank='x' then
begin
clrscr;
gotoxy(30,12);
writeln ('= XX BANK =');
textcolor(5);
writeln (' Musteri.........: 123456');
writeln (' Sifre...........: 12345678');
writeln (' Parola..........: bysalih');
writeln (' Guvenlik resmi..: bysalih');
end
else

//YY BANK
if bank='y' then
begin
clrscr;
gotoxy(30,12);
writeln (' = YY BANK =');
textcolor(5);
writeln (' Mus No..: 123456789');
writeln (' K. ADI..: bysalih');
writeln (' Sifre...: 123456');
end
else

//ZZ BANKASI
if bank='z' then
begin
clrscr;
gotoxy(30,12);
writeln (' = ZZ BANK = ');
textcolor(5);
writeln (' Musteri.....: 123456789');
writeln (' Sifre.......: bysalih');
writeln (' İnteraktif..: 1234567');
end
else

//Hatalı ise burayı yaz.
writeln('Lutfen Bu Ilk Harfleri Yaziniz...: XXBANK(x), YYBANK(y), ZZBANK(z)');
readln;
clrscr;
goto islem;
end.