На бесконечном поле имеется прямоугольник ограниченности нами. Длины сторон прямоугольника неизвестно. Робот находится слева от прямоугольника. На рисунке указан один из расположение стен робота робот обозначен буквой Р напиши для работы алгоритма закрывающимся клетки снаружи прямо угольника примыкающие к его правой стене . Робот должен закрасить только те клетки удовлетворяющие данному условия. Например для приведённого выше рисунка робот должен закрасить следующие клетки смотрите рисунок конечно это положение робота может быть производим. Алгоритм должен решать задачи для произвольного размера поле любого допустимого расположение стен UT прямоугольного поля при исполнении алгоритма робот не должно разрушаться, выполнения алгоритма должно завершиться алгоритм может быть выполнен среде формального исполнение или записать текстом редакторею
var a,b, I, maxsumm, max : integer;
function summdel(x:integer):integer; //результат - сумма делителей х
var k,sum:integer;
begin
sum:=0;
for k := 1 to x div 2 + 1 do
if x mod k = 0 then sum:= sum+k;
summdel:=sum;
end;
begin
writeln('Введите границы a,b ');
readln(a,b);
maxsumm := 1;
max := 1;
for i := a to b do
begin
if summdel(i) > maxsumm then
begin maxsumm:= summdel(i);
max := i;
end;
end;
writeLn('Максимальная сумма делителей - ', maxsumm, ' число - ',max)
end.