найдите значение выражения y=-4x+6 при x=[2;4] с шагом 0,2

var

y, x:real;

begin

x:=2;

while x<4 do

begin

y:=-4*x+6;

x:=x+0.2;

writeln(y);

end;

end.