Const n=10;
var ar:array[1..n] of integer;
a,b,i,s:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
ar[1]:=a; ar[2]:=b; s:=a+b;
for i:=3 to n do
begin
ar[i]:=s+i;
s:=s+ar[i];
end;
for i:=1 to n do write(ar[i],' ');
writeln;
end.
Пример:
a = 2
b = 3
2 3 8 17 35 71 143 287 575 1151
Если на Pascal, то:
program qq;
var a,b:integer;
Begin
Write('Введите значение 1 переменной: ');
Read(a);
Write('Введите значение 2 переменной: ');
Read(b);
Write('Произведение двух переменных ',a,' и ',b,' равно: ',a*b);
End.