1) дано число x. вывести на экран квадрат данного числа. 2) вы пошли в магазин, у вас имеется x руб. в магазине вы купили тетрадь, ручку и карандаш. сколько денег у вас осталось? напишите . на языке паскаль.

№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.