Question

Написать программу while ..do
Ввести с клавиатуры 10 чисел. Если квадрат числа меньше 100, напечатать число и его квадрат.

Answer 1

Одно из возможных решений. Также можно использовать массив, если это необходимо за условием.

const
  n = 10;
var
  i, number: integer;
begin
  i := 1;
  while (i <= n) do
    begin
      write('Введите ', i, '-ое число: ');
      readln(number);
      if sqr(number) < 100 then
          writeln('Число: ', number, '. Квадрат числа: ', sqr(number), '.');
      Inc(i);
    end
end.

Answer 2

Благодарю