Задача 3(0<n<10)

var
  n:integer;
begin
  writeln('введите число, которое больше нуля, но меьнше десяти');
  readln(n);
  while (n<0) or (n>10) do
    begin
      writeln('число неверное, введите еще');
      readln(n);
    end;
  writeln(sqr(n))
end.