«A»: Напишите программу, которая получает два целых числа A и B (0 < A < B) и выводит квадраты всех натуральных

Программа выводит таблицу квадратов чисел из интервала [a, b].

Значения a и b вводятся с клавиатуры.

program square;

var a, b, k: integer;// a,b — пределы, k — счетчик

begin

writeln(\'Введите два числа через пробел\');

readln(a, b);

k:= a;

while k <= b do

begin

writeln(k, \' * \', k, \' = \', k * k);

k:= k + 1

end

end.