Перевести с паскаля на кумир

var
  a: array[1..5] of integer;
  i: integer;
begin
  for i: = 1 to 5 do
  begin
    write('введите ',i,'-ый элемент массива ');
    readln(a[i]);
  end;
  write('исходный массив: ');
  for i: = 1 to 5 do
    write(a[i],' ');
  writeln;
  write('полученный массив: ');
  for i: = 1 to 5 do
    write(a[i]*2,' ');
end.

подробнее - на -

Поля6000    3   01.02.2020 16:38    2