Дано целое двузначное число м. разработайте схему алгоритма, который вычисляет сумму всех двузначных чисел, начиная с числа м. используйте цикл пока. желательно на языке паскаль.

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