Пожалуйста посчитайте пожалуйста по информатике программа lazarus нужно исправить ошибки Сама программа имеет вот такой вид :TForm1.FormCreate(Sender: TObject);var x1,x3,result:real;begin x1=Edit1.Text;x2:=Edit2.Text;x3=Edit3.Text;result:=x1+x2+x3;Edit4.text:=result;result=x1*x2*x3;Edit5:=result:end:Прошу Пожалуйста посчитайте

var x1,x3,result:real; - отсутствует x2

begin

x1=Edit1.Text; - отсутствует двоеточие

x2:=Edit2.Text;

x3=Edit3.Text;  - отсутствует двоеточие

result:=x1+x2+x3;

Edit4.text:=result;

result=x1*x2*x3;

Edit5:=result: - вместо точки с запятой стоит двоеточие в конце выражения

end: - вместо точки стоит двоеточие в конце выражения

Если ошибки остануться, пиши в комментарий, разберёмся