На бесконечном поле имеется вертикальная стена. длина стены неизвестна. от верхнего конца стены вправо отходит горизонтальная стена также неизвестной длины. робот находится в клетке, расположенной слева от нижнего края вертикальной стены. напишите для робота алгоритм, закрашивающий все клетки, расположенные левее вертикальной стены и выше горизонтальной стены и прилегающие к ним ​

if5                                                      

program raf105;

var a,b,c,po,ot: integer;

begin

write('Введите 3 числа: ');

readln(a,b,c);

if a > 0

 then po+= 1;

if a < 0

 then ot+= 1;

if b > 0

 then po+= 1;

if b < 0

 then ot+= 1;

if c > 0

 then po+= 1;

if c < 0

 then ot+= 1;

writeln('Количество положительных чисел: ',po);

writeln('Количество отрицательных чисел: ',ot);

end.

if6                                                      

program raf105;

var a,b: real;

begin

write('Введите 2 числа: ');

readln(a,b);

if a > b

 then writeln(a)

 else writeln(b);

end.

if7                                                      

program raf105;

var a,b: real;

begin

write('Введите 2 числа: ');

readln(a,b);

if a < b

 then writeln('1')

 else writeln('2');

end.

Язык PascalABC 3.4.2

а.                                              

program raf105;

var abcd,a,b,c,d,sum: integer;

begin

write('Введите четырёхзначное число: ');

readln(abcd);

a:= abcd div 1000;

b:= (abcd div 100) mod 10;

c:= (abcd div 10) mod 10;

d:= abcd mod 10;

sum:= a+b+c+d;

writeln('Сумма цифр: ',sum);

end.

в.                                              

program raf105;

var abcd,a,b,c,d: integer;

begin

write('Введите четырёхзначное число: ');

readln(abcd);

a:= abcd div 1000;

b:= (abcd div 100) mod 10;

c:= (abcd div 10) mod 10;

d:= abcd mod 10;

abcd:= a*1000 + c*100 + b*10 + d;

writeln('Вывод: ',abcd);

end.

г.                                              

program raf105;

var abcd,a,b,c,d: integer;

begin

write('Введите четырёхзначное число: ');

readln(abcd);

a:= abcd div 1000;

b:= (abcd div 100) mod 10;

c:= (abcd div 10) mod 10;

d:= abcd mod 10;

abcd:= c*1000 + d*100 + a*10 + b;

writeln('Вывод: ',abcd);

end.

                                              PascalABC 3.4.2