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

Одно из возможных решений. Также можно использовать массив, если это необходимо за условием. 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.