1) Дано число X. Вывести на экран квадрат данного числа. 2) Вы пошли в магазин, у вас имеется X руб. в магазине вы купили тетрадь, ручку и карандаш. Сколько денег у вас осталось? Напишите пожалуйста. На языке Паскаль.

а точно правильно

да проверено

№1program q177816090_1;var a, i: integer;begin Write('A = '); ReadLn(a); for i := 1 to a do  Write(i, ' '); ReadLn;end.№2program q177816090_2;var n, i: integer;begin Write('N = '); ReadLn(n); for i := 1 to n do  Write(Sqr(i), ' '); ReadLn;end.№3program 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.