Составьте программы для исполнителя Робот с использование процедур

var

  x: real;

begin

  readln(x);

writeln(x: 0: 0);

end.

по центру каждой стены  по  стулу  а также в каждый угол по стулу

строка, рот, ройка, ретро, рост, койка, река,тройка,тропа,река.

var a,b,c,d,e: real;

begin

  read(a,b,c,d);

  e: =(a+b+c+d)/4;

  writeln(e: 0: 4);

end.