Welcome stranger

Pascal.txt

var
       a, b :array[1..10] of integer ;
         i:integer;

begin
  writeln('Zadejte 10 cisel');
  for i:= 1 to 10 do
  readln(a[i]);
  for i:= 1 to 10 do
  begin
    b[i]:= a[i]*3;
  end;
    for i:= 1 to 10 do
     write(a[i]);
    for i:= 1 to 10 do
     write(b[i]);
     
    readln;