ввести с клавиатуры 10 чисел, если квадрат числа меньше 100, напечатать число и его квадрат

в паскале:var a,b:integer;beginfor a:=1 to 10 do beginwriteln('введите число');readln(b);if b*b<100 then writeln('число:',b,'квадрат:',b*b);end;end.