Из входного неограниченного потока чисел создать последовательность квадратов чисел и вывести их на экран - Free Pascal

Из входного неограниченного потока чисел создать последовательность квадратов чисел и вывести их на экран.

Листинг программы

var a: Real;
begin
  repeat
    Read(a); Write(' ',a*a);
  until False;
end.

Объяснение кода листинга программы

В данном коде используется цикл repeat-until, который выполняет следующие действия:

Считывает из входного потока число и сохраняет его в переменной a типа Real.
Выводит на экран число, умноженное на себя (квадрат числа), с пробелом после него.
Повторяет шаги 1 и 2 до тех пор, пока не будет считан ноль или не будет нажата комбинация клавиш Ctrl+D (для чтения из стандартного ввода).
Завершает выполнение программы. Таким образом, код принимает числа из входного потока, создает последовательность квадратов этих чисел и выводит ее на экран.