Дана блок-схема нахождения периметра прямоугольника заполните пустые блоки

1. Наперсток предназначен для защиты пальца от проколов во время работы.

2. Соблюдай порядок на своем рабочем месте.

Перед работой проверь исправность инструментов.

Не работай ножницами с ослабленным креплением.

Работай только исправным инструментом: хорошо отрегулированными и заточенными ножницами.

Работай ножницами только на своем рабочем месте.

Следи за движением лезвий во время работы.

Ножницы клади кольцами к себе.

Подавай ножницы кольцами вперед.

Не оставляй ножницы открытыми.

Храни ножницы в чехле лезвиями вниз.

Не играй с ножницами, не подноси ножницы к лицу.

Используй ножницы по назначению.

3. Нельзя втыкать иголки и булавки в одежду, мебель, брать их в рот. До и после работы пересчитывать иголки и булавки. При уколе пальца иглой следует выдавить две-три капли крови и смазать ранку йодом. Ножницы следует хранить в специальном чехле.

Решение №1 (без массивов)

var a,n,i,j,s:integer;
begin
  writeln('Введите количество цифр в числе');
  readln(n);
  for i:=1 to n do begin
    writeln('Введите ',i,' цифру из ',n);
    readln(a);
    for j:=1 to n-i do a:=a*10;
    s:=s+a;
  end;
  writeln('Натуральное число: ',s);
end.

Тестовое решение

Введите количество цифр в числе
5
Введите 1 цифру из 5
9
Введите 2 цифру из 5
2
Введите 3 цифру из 5
7
Введите 4 цифру из 5
3
Введите 5 цифру из 5
1
Натуральное число: 92731

Решение №2 Если очень надо использовать массив (хотя на мой взгляд совсем не нужно)

//PascalABC.NET (версия 3.1, сборка 1198)
var a,n,i,j,s:integer;
mas:array[1..10]of integer;
begin
  writeln('Введите количество цифр в числе');
  readln(n);
  for i:=1 to n do begin
    writeln('Введите ',i,' цифру из ',n);
    readln(mas[i]);
    a:=mas[i];  
    for j:=1 to n-i do a:=a*10;
    s:=s+a;
  end;
  writeln('Натуральное число: ',s);
end.

Тестовое решение

Введите количество цифр в числе
5
Введите 1 цифру из 5
5
Введите 2 цифру из 5
4
Введите 3 цифру из 5
3
Введите 4 цифру из 5
2
Введите 5 цифру из 5
2
Натуральное число: 54322