1. вычислите значение функции у=2х(в квадрате) + 4х-2 на отрезке (0.17) с шагом 1.5

Program my;var i,y:extended;begin    i := 1.5;    while i < 17 do    begin    y := 2 * sqr(i) + 4 * i - 2;    writeln(y:0:1);    i:= i + 1.5;    end;end.