Question

Я хотел создать программу в паскале где вы должны были угадать цифру от 1 до 10,но я хотел его улучшить и сделать холодно/горячо, с холодно у меня получилось а вот с горячо что то не выходит, помогите пожалуйста
var a,j:integer;
begin
j:=random(10);
writeln('Попробуй отгадать мое загаданное число');
readln(a);
if a=j then writeln ('Молодец,вы отгадали')
else writeln ('К сожелению вы ошиблись,повторите вашу попытку') ;
end.

Answer 1

Решение представлено во вложении.