Programalama > PASCAL

uses crt;

var

a,b:integer;

begin

 clrscr;

 textcolor(white);

 writeln('UYARI : Sadece Bir Tahmin Hakkınız Var !');

 writeln;

 textcolor(green);

 write('Tahmin edilecek sayıyı giriniz :'); readln(a);

 clrscr;

 textcolor(red);

 write('Tahmin ettiginiz sayıyı giriniz :'); readln(b);

 textcolor(green);

 writeln;

 if a=b then

 writeln('  TEBRIKLER SAYIYI BULDUNUZ')

 else

 writeln(' :( Üzgünüz Sayıyı Bulamadınız.. ');

readln;

end.