کیهان جان برنامتو نوشتم . در این کد عدد مورد نظر برنامه 5 هست که باید حدس زده بشه و 6 بار هم فرصت حدس زدن دارید . میتونید تغییرش بدید .. در ضمن من کامپایلر پاسکال نداشتم اجرا بگیرم اگر مشکلی بود در خدمتم

کد:
Program Game1;
Var
a,b,i:integer;
Begin
a:=5;
i:=0
While i<>6 do
Writeln('Please Guess a Number Between 0 to10 : ');
Readln(b);
i:=i+1;
if b>a then
begin
Writeln('\nLarger Than Your Number');
end
if b<a then
begin
Writeln('\nLower Than Your Number');
end
if b=a
begin
Writeln('\n is Equal');
end
end;
end.