1) Дано число X. Вывести на экран квадрат данного числа. 2)

1
program q177816090_1;
var
 a, i: integer;
begin
 Write('A = ');
 ReadLn(a);
 for i := 1 to a do
  Write(i, ' ');
 ReadLn;
end.

2
program q177816090_2;
var
 n, i: integer;
begin
 Write('N = ');
 ReadLn(n);
 for i := 1 to n do
  Write(Sqr(i), ' ');
 ReadLn;
end.

3
program q177816090_3;
var
 n, k, i: integer;
begin
 Write('N = ');
 ReadLn(n);
 Write('K = ');
 ReadLn(k);
 for i := 1 to n do
  Write(k, ' ');
 ReadLn;
end.