Чв
Чв
program ret;
var a: array (1..5) of integer;
i: integer
begin
for i:=1 to 5 do
begin
readln(a(i));
a(i):=a(i)*2;
writeln(a(i));
end;
круглые скобки поменяй на квадратные
end.
var a: array [1..5] of integer;
i: integer;
begin
for i:=1 to 5 do
begin
readln(a[i]);
a[i]:=a[i]*2;
end;
writeln(a[i]);
end.