Дано целое двузначное число М. Разработайте схему алгоритма, который вычисляет сумму всех двузначных чисел, начиная с числа М. Используйте цикл ПОКА. Желательно на языке Паскаль.

Схема и программа вместе:Program sum;var M,b,c:integer;beginwriteln('Введите число от 10 до 99: ');readln(M);c:=M;if (M<10) or (M>99) then b:=0 elsewhile (M<100) dobeginb:=b+M;inc(M);end;writeln('Сумма всех двухзначных чисел начиная от ',c, ': ',b);end.