task 2

var
N: integer;
begin
  repeat
    readln(N);
    if (N>0) and (N<10) then
    begin
      N := N*N;
      exit;
    end
    else
      writeln('vv dr chislo');
   until 1 <> 1;
end.