Ввести с клавиатуры 10 чисел. Если квадрат числа меньше 100, напечатать число и его квадрат — Pascal(Паскаль)

var
 i,a:integer;
begin
for i:=1 to 10 do begin
readln(a);
if a*a<100 then writeln('chislo= ',a , ' kvadrat chisla= ',a*a)
end;

end.