Найдите значение выражения 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.