Запиши правильную последовательность цифр так чтобы получилась программа в результате которой получается рисунок.​

К примеру возьмём нарушение правил дорожного движения и пользования легко воспламеняющимися предметами.

Объяснение:

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

Если оставлять например дезодорант, или быллоны с газом где-нибудь около огня может произойти взрыв, или пожар. Также нужно быть осторожным с другими жидкостями со значком "Осторожно, воспламеняется!" От нарушения всех правил безопасности может быть плохо всем окружающим. Поэтому, если не хотите дойти до летального исхода читайте правила пользования!

№1

var sum, i: integer;
begin
sum := 0;
for i := 1 to 100 do
sum := sum + i;
writeln('Сумма всех чисел от 1 до 100: ', sum);
end.

№2

var p, i: integer;
begin
p := 1;
for i := 1 to 10 do p := p * i;
writeln('Произведение всех чисел от 1 до 10: ', p);
end.

№3

У вас не дано никаких условий. Вот задача для условия: "Членов прогрессии - 100, шаг - 3"

var A, i, k, max: integer;
begin
i := 3;
max := 100;
for k := 1 to max do begin
A := A + i;write( A, ' ');
end;
end.

№4

var sum, x: real;
a: array[1..10] of real;
i: integer;
begin
sum := 0;
for i := 1 to 10 do begin
write('Введите ', i, ' число: ');
readln(a[i]);
sum := sum + a[i];
end;

writeln('Сумма введенных чисел: ', sum);
end.