Соберите программу на языке паскаль. вывести на экран сумму цифр целого числа m> 0

Begin 
write('Введите целое положительное число m: '); 
var m := ReadInteger; 
assert(m > 0);  
var s := 0; 
while m > 0 do  begin   
s += m mod 10;   
m := m div 10; 
end;  
writeln('Сумма цифр числа m равна ', s);
end.

//PascalABC.Net
var
  r,x,y:real;
  c:string;
begin
  Write('Введите R: '); Read(r);
  Write('Введите координаты x и y: '); Read(x,y);
  if sqr(x)+sqr(y)=sqr(r) then c:='Точка лежит на окружности'
  else c:='Точка не лежит на окружности';
  Writeln(c)
end.

Тестовые решения:
Введите R: 2
Введите координаты x и y: 0 2
Точка лежит на окружности

Введите R: 2
Введите координаты x и y: -1.5 0.7
Точка не лежит на окружности

Введите R: 2
Введите координаты x и y: 1 1
Точка не лежит на окружности

Введите R: 2
Введите координаты x и y: 3 0
Точка не лежит на окружности

Блок-схема во вложении

Лиственные :
жимолость
дикий каштан
айлант высочайший
акация
тамарикс
дуб каменный
араукария
дуб
кассия
граб обыкновенный
лавр, лавровое дерево;
- ель
- эвкалипт
- вереск
- ива
- кедр
- земляничное дерево
- церцис
- кипарис
- боярышник
- тополь
- бирючина обыкновенная
- магнолия
- мастиковое дерево
- мелия
- мимоза
- бамбук
- мирт, миртовое дерево
- бук, буковое дерево
- сосна
- дуб кермесовый
- платан
- олеандр
- береза
- клён
- фикус
- липа
- вяз
- рожковое дерево