Как делать то до 07.02.2021​

Program ;Var a, b, c: integer; y: real;Begin Writeln ('Введите а:= ');Readln (a);Writeln ('Введите b:= ');Readln (b);Writeln ('Введите c:= ');Readln (c);y:= (a - b + c)/(a + b);Writeln ('ответ: y:=', y);End.