В задаче не указан шаг изменения x , допустим он равен 1
var
x,y:real;
begin
x:=1;
while x<=10 do
y:=1/x-5;
writeln(y:8:2);
x:=x+1;
end;
end.
