[Kingcss]

Господи, первый класс:

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
a:integer;
begin
a:=strtoint(Edit1.Text);
if a>0 then
Label1.Caption:='+'
else if a=0 then
Label1.Caption:='0'
else Label1.Caption:='-';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Label2.Caption:=inttostr(ABS(strtoint(Edit1.Text)));
end;

procedure TForm1.Button3Click(Sender: TObject);
var
prostoe:boolean;
i:integer;
x:integer;
begin
prostoe:=true;
x:=strtoint(Edit1.Text);
if x<2 then exit;
for i:=2 to x div 2 do
if x mod i=0 then
begin
prostoe:=false;
break;
end;
if prostoe then Label3.Caption:='Простое число'
else Label3.Caption:='НЕпростое число';
end;