Найти значение функции для х от 0 до 16 с шагом 1. Написать в виде программы

Если в верхней строчке не "-3,5", а просто 3,5, то тогда вот такая программа:var    F:real;   x:integer;beginwriteln(' x','F':6);for x:=0 to 16 do  begin  if x>=3.5 then F:=4*x*x+2*x-19    else F:=-2*x/(-4*x+1);  writeln(x:2,F:8:2);  endend.