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

var x:integer; y:real;beginwrite ('x= ');readln (x);y:=(2*x-4)/2;write('y= ', y:6:2);end.Например, х=6, у=4.00 и т.д.