fork download
copy 
  1. program TASK2;
  2. var
  3.   n, a:integer;
  4.   x:integer;
  5. begin
  6.   write('Введите количество элементов: ');
  7.   readln(a);
  8.  
  9.   writeln('Ряд x = n^2 + 1:');
  10.   writeln('----------------');
  11.   writeln('n | x');
  12.   writeln('----------------');
  13.  
  14.   for n := 1 to a do
  15.   begin
  16.     x := n * n + 1;
  17.     writeln(n:2, ' | ', x);
  18.   end;
  19.  
  20.   readln;
  21. end.
Success #stdin #stdout 0.01s 5288KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Введите количество элементов: Ряд x = n^2 + 1:
----------------
n | x
----------------
https://ideone.com/c18ijx
language:
Pascal (fpc 3.0.4)
created:
2 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!