Начинаешь закрашивать со стеночки а потом таким же темпом циклом НЦ ПОКА СВЕРХУ СНИЗУ ЗАКРАШЕНО ВЛЕВО ВПРАВО)
Var a,x,b:integer;
begin
for a:=20 to 100 do
if a mod 3 = 0 then x:=x+a;
writeln(x);
<span>end.</span>
Код рабочий, проверял на PascalABC
uses GraphABC;
var m: integer; arr: array [1..10] of integer;
begin
for var i := 1 to 10 do
begin
arr[i] := Random(120,200);
end;
m := Max(arr[1], Max(arr[2], Max(arr[3], Max(arr[4], Max(arr[5], Max(arr[6], Max(arr[7], Max(arr[8], Max(arr[9], arr[10])))))))));
println(m);
end.
Символ - например, буква или знак вопроса
Строка - в тексте много строк
Абзац - новую мысль в тексте начинают с абзацного отступа
Столбец , ячейка- это уже электронные таблицы
Слово - часть текста
Страница, список - часть написанного текста