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

старше будет девочка потому что там написано втрое

50зн=50байт

60зн=60байт

1кбайт= 1024байта

1мб=1024кбайта

=> 1мбайт=(1024*1024)байт

1мбайт=1048576 байт

50байт/1048576байт=0,0000476837мбайт

60байт/1048576байт=0,0000572205мбайт 

1) 

var

s: string;

begin

s: ='пробел';

writeln(s);

delete(s,4,1);

insert('д',s,4);

writeln(s);

end.

2)

var

i: integer;

a,b: string;

begin

readln(a);

b: ='';

for i: =1 to length(a) do

b: =b+a[i]+' ';

writeln(b);

end.

3)

var

a: string;

begin

readln(a);

if a[2]=a[4] then writeln('равны')

else  writeln('не равны');

end.

var

a,b: real;

begin

readln(a,b);

if (a> 0) or (b< -2) then

writeln('истинно')

else

writeln('ложно');

end.