Tlistbox timages tmemo сделать в лазарусе програму которая показывает картинку при нажатии текста в tlistbox и показывает текст описание в tmemo.

Объяснение:

После того как снизу (у меня снизу, у тебя может и сверху выход) нет стены, робот не двигается, ему нет команды двигаться, а цикл начинается сначала - снова проверка есть ли стена сверху и снизу, снизу нет стены, робот не двигается, цикл начинается сначала. опять проверка...опять не двигается и снова цикл. Если нет стены сверху или снизу, нужно предусмотреть выход из цикла и конец, ну либо что робот должен делать после того как нашел разрыв.

использовать Робот

алг Найти проход в коридоре

дано | Робот узком горизонтальном коридоре, правее робота есть выход

надо | Робот в клетке с выходом из коридора

нач

нц если сверху стена и снизу стена то

вправо

иначе стоп  

все

кц

кон

Если будут где-то ошибки извините ,возможно в знаках)) проверьте в паскале ,если что напишите 

program prazdnik;
var a : integer ;
begin
readln(a);
if a=1  then writeln ('пишите сюда праздиники в первый месяц,какие нужны');
if a=2 then writeln ('сюда то чт ово второй ');
if a=3 then writeln (' третий ') ;
if a=4 then writeln (' четвертый месяц с его праздниками');
if a=5 then writeln (' пятый месяц');
  if a=6 then writeln (' шестой месяц'); 
 if a=7 then writeln (' седьмой месяц'); 
 if a=8 then writeln (' восьмой'); 
 if a=9 then writeln (' праздники '); 
 if a=10 then writeln ('празники '); 
  if a=11 then writeln (' праздники 11 месяца');
 if a=12 then  writeln ('двенадцатый');  
end.