помогите плиз, как решить эту задачу?
Нажмите для просмотра прикрепленного файла
program qwesdfsdf;
uses crt;
var i:integer;x,y:real;
begin
clrscr;
x:=0;
for i:=0 to 10 do
begin
y:=exp(-x)*(cos(x)+1);
writeln(x:5:2,y:5:2);
x:=x+0.1;
end;
writeln(' x y');
end.