Язык программирования Delphi. Программа должна считать площадь и периметр прямоугольника. Но получается либо площадь, либо периметр(((
помогите найти ошибку в коде:
procedure TForm1.CalcButtonClick(Sender: TObject); var a,b,c,d: real; s: string; code: integer; begin val(Edit1.Text,a,code); val(Edit2.Text,b,code);c:=a*b; d:=(a+b)*2; str(c:-10:4,s); Label5.Caption:=s; Label7.Caption:=s; end;
собственно за остальную часть программы я спокойна. но эта вызывает сомнения