Код:
procedure TForm1.Button1Click(Sender: TObject);
var
a,b:real;
procedure ab;
begin
a:=a*a+b*b;
b:=2*b*sqrt(a-b*b);
end;
begin
Memo1.Lines.Clear;
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
ab;
Memo1.Lines.Add('a = '+floattostr(a));
Memo1.Lines.Add('b = '+floattostr(b));
end;
челювек, почему у тебя с репутацией так все плохо?
Особо уже отличился на форуме?
Или очередной восмиклассник захотел "пятерку" по информатике?