В 2_2 еще ошибка: i не меняется. - Я тут не совсем разберусь если честно.

Program zad_2_1;
USES PRINTER;
Var x,y: real;
i: integer;
Begin
x:=0;
for i:=5 to 10 do
begin
y:=x*x*x + 2sqr(sin(sqr(x+3)));
writeln ('x=', x:6:2, 'y=', y:6:2);
writeln (LST, 'x=', x:6:2, 'y=',y:6:2);
x:=i*0,5:
end;
End.
В паскале вроде работает, но не уверенна в правильности. Я уже совсем запуталась(