amwarawka

09.01.2023 22:11 •  Информатика

procedure TForm1.Button1Click(Sender: TObject);

var

x1,x2,y1,y2,y:real;

begin

x1=StrToFloat(Edit1.Text);

x2:=StrToFloat(Edit2.Text);

y1=x1*x*2;

y2:=x1+x2;

y:=y2/y1;

y:=Int(y);//Ця команда правильна

Label1.Текст:=FloatToStr(y);

end;​

надо исправить код в програме Lazerus​