ПЕРЕВЕДИТЕ ИЗ ПАСКАЛЯ В КУМИР
program kar;
const n=10;
var a:array[1..n] of real;
r:real;
begin
read(a[1],r);
write(a[1]);
for var i:=2 to n do begin
a[i]:=a[i-1]+r;
write(' ',a[i]);
end;
end.

vbackarevap09p0h    3   22.04.2020 15:58    1