 
исп Робот 
 
цел xmax   | количество столбцов на поле 
 
| полностью переписанная модель (М20) 
 
 
цел ymax   | количество строк на поле 
цел x      | 1<=х<=xmax, х-координата Робота (номер столбца) 
цел y      | 1<=y<=ymax, y-координата Робота (номер строки) 
лог таб ниже[1:xmax,1:ymax] |  ниже[i,j]= Дда А  <==> ниже   стена 
лог таб выше[1:xmax,1:ymax] |  выше[i,j]= Дда А  <==> выше   стена 
лог таб левее[1:xmax,1:ymax] | левее[i,j]= Дда А  <==> левее  стена 
лог таб правее[1:xmax,1:ymax] | правее[i,j]= Дда А <==> правее стена 
лог таб закр[1:xmax,1:ymax]  | закр[i,j]= Дда А <==> клетка закрашена 
вещ таб a[1:xmax,1:ymax]      | a[i,j] - уровень радиации 
вещ таб t[1:xmax,1:ymax]      | t[i,j] - температура в клетке 
 
алг вправо                                            |(А116) 
дано справа свободно 
нач 
x:=x+1 
кон 
 
 
алг лог справа стена                                  |(А114) 
нач знач := правее[x,y] 
кон 
 
алг лог справа свободно                              | (А115) 
нач 
знач := не правее[x,y] 
кон 
 
|  . . . (алгоритмы, имитирующие остальные команды Робота) 
 
кон_исп 
 
 
 
 
 
