PascaL ( Şifre BuLma Oyunu Programı )

PascaL ( Şifre BuLma Oyunu Programı )

program sifreyibul;
uses crt;
const
sifre=1234;
var
tahmin,sayac:integer;
begin
(*Efendy26 tarafından yazılmıştır*)
repeat
sayac:=sayac+1 ;
writeln('sifreyi giriniz!');
readln(tahmin);
if tahmin > sifre then
begin
writeln ('Kucult');
end;
if tahmin < sifre then
begin
writeln('Buyut')
end ;
if tahmin=sifre then
begin
writeln ('Dogru Tahmin');
writeln(sayac,' inci deneyisinizde buldunuz');
end;
until tahmin=sifre;
end.