var
  arr1, arr2, arr3: array[1..5] of integer;
  i: byte;

begin
  writeln('Заполните первый массив: ');
  for i := 1 to 5 do 
  begin
    write(i, '.) ');readln(arr1[i]);
    arr2[i] := arr1[i] * 2;
    arr3[i] := arr1[i] * arr2[i];
  end;
  
  writeln;writeln('Первый массив:');
  for i:=1 to 5 do write(arr1[i],' ');
  writeln;writeln('Второй массив:');
  for i:=1 to 5 do write(arr2[i],' ');
  writeln;writeln('Третий массив:');
  for i:=1 to 5 do write(arr3[i],' ');
  readln;
end.