Составить программу для у=(2х-4)/х

Question

Составить программу для у=(2х-4)/х

Answer 1

Var x:integer; y:real;beginwrite ('x= ');readln (x);y:=(2*x-4)/2;write('y= ', y:6:2);end.

Например, х=6, у=4.00 и т.д.