paskal

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var a,R:Integer;
begin
a:=StrToInt(Edit1.text);
R:=a*-1;
ShowMessage(IntToStr(R));
end;

end.

просто умножаете число введенное пользователем на -1 и получаете это же число, но отрицательное. Изи

спасибо

ПРИЯТНОГО ВЕЧЕРА ТЕБЕ )))))

а щас в школе паскаль проходят?

да

А он чего еще и объектно-ориентированный?..

да

ё маё... )

да

где решенье???????????