begin
var a := readinteger;
var b := readreal;
while (b >= a) do
begin
print(b * b, ' ');
b := b - 0.5;
end;
end.
Объяснение:
begin // Начало программы
var a := readinteger; // Считываем целочисленную переменную a с клавиатуры
var b := readreal; // Считываем вещественную переменную b с клавиатуры
while (b >= a) do // Пока значение переменной b ≥ значению переменной а
begin // Начало цикла
print(b * b, ' '); // Выводим квадрат числа с пробелом
b := b - 0.5; // Уменьшаем переменную b на 0.5
end; // Конец цикла
end. // Конец программы
