var x: array[1..10] of real;
n: integer;
begin
for n:=1 to 10 do begin
x[n]:=power(3,n)-5;
writeln(x[n]);
end;
end.
это может быть колькулятор так, как числовая информация!
Var i:byte;
Begin
for i:=10 to 25 do
begin
write(i,' ');
writeln(i,'.4');
end;
End.