1111111111111

var
    i: integer;
    M: real;
    k: real;

begin
    i := 0;
    k := 0.0000001;
    writeln('Введите M: '); readln(M);
    while( k < M) do
    begin
        inc(i);
        k := sin(i);
    end;
    writeln('Первое число большее М: ', k);
    writeln('Его номер: ', i);
end.