Uses crt;
const n=10;
var a:array [1..n] of integer;
b:array [1..n] of real;
i:integer;
begin clrscr;
for і:=1 to n do readln(a[i]);
for i:=1 to n do b[i]:=2*(a[i]);
for i:=1 to n do write(a[i]:11);
writeln;
for i:=1 to n do write(b[i]:11:1);
end.
Это в Pascal