Думаю ответ под номером 1.
Зачем нам нужно записывать Russia? Там есть условие для этой программы?
Странная запись инверсии.
Uses
GraphABC;
var
i, k: integer;
arr: array [1..6] of color;
begin
writeln('Сколько кирпичиков?');
readln(k);
arr[1] := clPink; arr[2] := clRed; arr[3] := clGreen;
arr[4] := clBlue; arr[5] := clYellow; arr[6] := clOrange;
for i := 0 to k - 1 do
begin
SetBrushColor(arr[random(6) + 1]);
FillRectangle((i mod 16) * 40, (i div 16) * 20, (i mod 16) * 40 + 39, (i div 16) * 20 + 19);
sleep(20);
end;
end.
Стена из кирпичиков - норм?)
Он будет сделан из металла, синие глаза, маленькие ручки и лампочка на голове. Примерно такой:
Var i:integer;
begin
writeln('Дюймы См');
for i:=1 to 10 do
writeln(i:3,' ',2.54*i:5:2);
end.
Результат:
Дюймы См
1 2.54
2 5.08
3 7.62
4 10.16
5 12.70
6 15.24
7 17.78
8 20.32
9 22.86
10 25.40