Составе программу вычисления значения выражения a=(1-2x)/4
Program z1; var a,x:real; begin writeln(x); a:=(1-2*x)/4; writeln(a); end.