Можно как то так:
var
M: real;
x: integer;
begin
for x := 1 to 100 do
M := 2 / Sin(x);
Println('x=', x, '; M=', M);
end;
end.
