[kate_miss]

Сообщение от lmikle

Извращенцы

Код:

function Is3InN2(n : integer) : Boolean;
begin
  Result := Pos('3',IntToStr(n*n)) > 0;
end;

прошу прощения а тогда что в unit1 писать???..подскажите , не могу что-то доделать)))))