Program ex1;
uses crt;
var x:integer;
begin
  write('Введите число : ');
  readln(x);
  if (x mod 9 = 1) or (x mod 9 = 8) then
    writeln('Остаток числа ',x,' от деления на 9 : ',sqr(x) mod 9)
  else 
    writeln('Число не подходит!');
end.