напишите программу для вычесления арифметических выражений

Var Z, x, y, fom, fin: integer;Beginx := StrToInt(Edit 1. Text) ;y := StrToInt(Edit 2. Text) ;Z := StrToInt(Edit 3. Text) ;fom := (1 + Z) * ((x + y/Power(x, 2) + 4) / ( 2 + 1/Power(x, 2) + 4));fin := InToStr(fom) ;Edit 4. Text := fin;End;