<span>1. получить стартовые координаты </span>
<span>2. перейти на стартовые координаты </span>
<span>3. выбрать цвет кисти </span>
<span>4. входим в цикл обнуление всех счетчиков </span>
<span>4.1 проверяем количество повортов если оно равно 4 на выход иначе продолжаем </span>
<span>4.2 проверям не конец ли рамки если конец поврот на 90 градусов </span>
<span>4.3 чертим штрих </span>
<span>4.4 сдвигаемся на шаг </span>
<span>4.5 возвращаемся в пункт 4.1</span>
Число-общее
Столица Росси - единичное
Учебник - общее
Житель Москвы - общее
Столица - общее
Самая высокая гора - единичное
Пушкин - единичное
Сказочный персонаж - общее
Баба Яга- единичное
Var x:array [1..10] of integer; i:integer;
begin
for i:=1 to 10 do begin
x[i]:=i*2;
write(x[i],' ');
end;
end.