Помните, мы с вами отгадывали число?

Давайте теперь напишем программу, которая будет делать это за нас.

Сначала программа генерирует случайное число от 1 до 10.

Затем программа перебирает все варианты, пока не отгадает.

-,андрей!

-,паша!

-как у тебя дела?

-у меня всё хорошо,а ты как?

-у меня всё отлично. что спросил

-не за что.пойдёшь сегодня гулять?

-да,конечно.а во сколько?

-в 5 часов.

-хорошо.ладно пока.

пока.встретимся на улице

-хорошо.

var a: array [1..30] of integer;

i: integer;

begin

  for i : = 1 to 30 do

  begin

        a[i]: = 5+5*0.05*(i-1)+2;

        writeln(a[i]);

  end.

end.

1. съесть ржаного пирожка.2. съесть лесного яблока.3.съесть простого киселика с молоком. 

в точке, из которой начинал движение.