Question

SOS!
Решите в Pascal
2 Ввести с клавиатуры 10 чисел. Если квадрат числа меньше 100, напечатать число и его квадрат.
P.S Ну пожалуйста,я не могу решить!

Answer 1

var x, x2, i: integer;
begin
for i:=1 to 10 do
begin
readln(x);
x2:=sqr(x);
if x2<100 then writeln (x, ' ', x2);
end;
end.