[kate_miss]

ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!

НАПИСАЛА программу...
условие:
Дано натуральное число n. Выяснить, входит ли цифра 3 в запись числа n2(в квадрате).
считает только числа от 0 до 9....не могу сделать чтобы считал любое натуральное)))))

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Image1: TImage;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
n,k,m,i,l,f:word;

begin
n:=StrToInt(Edit1.Text);
Memo1.Lines.Add('число - '+Edit1.Text);
n:=sqr(n);
Memo1.Lines.Add('число n в квадрате (n2) = '+IntToStr(n));
for i:=1 to n do
l:=n div 100;
f:=n mod 100;
k:= n div 10;
m:= n mod 10;
if (l=3) or (f=3) or (k=3) or (m=3) then Memo1.Lines.Add('Число 3 входит в запись числа n2')
else Memo1.Lines.Add('Число 3 не входит в запись числа n2');

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Clear;
Memo1.Lines.Add('Лаб. раб №3 Шеметовец Е. гр.417329');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.Close;
end;

end.