Bir programa basitçe şifre koyma

program programa_sifre_koyma;





{$APPTYPE CONSOLE}











const dsifre=123321;


label devamet,basadon;


var


x,y:string;


sifre:longint;


procedure str(a:string; b:string);


begin


  writeln;


  a:='Hosgeldiniz';


  write(a);


end;


begin


 writeln('Programi gorebilmek icin dogru sifre girmelisiniz.Lutfen sifre giriniz.');


 readln(sifre);


 if sifre=dsifre then


 begin


 writeln('Sifreniz teyit edilmistir.');


 goto devamet;


 end





 else


 writeln('Uzgunuz,yanlis sifre!');


 readln;


 exit;








 devamet:


 str(x,y);


 readln;


end.