Попробовал вот тоже решить вторую задачу. Только с помощью функции. Но выдает ошибку Floating point overflow. Господа, можете ткнуть пальцем где у меня ошибка ? Уж, не могу сам дойти.
Код:
program funckcija;
uses crt;
var x:real;
function func(xs:real):real;
begin
func:=x*sqr(x)-sqr(x)+16*x-43;
end;
begin
clrscr;
x:=-4;
repeat
x:=x+0.5*x;
writeln(func(x):8:2);
until x=4;
readln
end.