Вычислите длину окружности, площадь круга и объём шара одного и того же заданного радиуса. 1. Разработка алгоритма (анализ задачи 2. Блок-схема решения задачи. 3. Исполнение алгоритма с контрольными точками.

ответ в закрепе, если не так, напиши мне.

Пять верст до небес и все лесом. 
Эка верста выросла (как Коломенская верста) . 
За семь верст киселя хлебать. 
Ты от дела на недельку, а оно от тебя на саженьку. 
Видеть на сажень сквозь землю. 
Загадка разгадка да семь верст правды. 
Каждый купец на свой аршин мерит. 
Прямой, будто аршин проглотил. 
Семи пядей во лбу. 
Сам с ноготок, а борода с локоток. 
От горшка два вершка, а уже указчик. 
Полено к полену - сажень. 
Москва верстой далека, а сердцу рядом. 
Любовь верстами не меряется. 
Сто верст молодцу не крюк. 
От слова до дела - целая верста. 
Верстой ближе - пятаком дешевле. 
Жили с локоть, а осталось с ноготь. 
В чужих руках ноготок с локоток. 
Дай с ноготок, запросит с локоток. 
Семь аршин говядины да три фунта лент (о бессмыслице)

Var a,b:longint;
function sum (n:integer):integer;
  var s:integer;
  begin
     s:=0;
     while (n<>0) do
       begin
         s:=s+n mod 10;
         n:=n div 10;
       end;
     sum:=s; 
  end;
  begin
    write ('A = ');
    readln (a);
    write ('B = ');
    readln (b);
    if sum(a) > sum(b) then
       writeln ('Сумма цифр 1ого числа больше на ',sum(a)-sum(b))
    else if sum(b) > sum (a) then 
       writeln ('Cумма цифр 2ого числа больше на ',sum(b)-sum(a))
    else writeln ('Сумма цифр 1ого числа равна сумме цифр 2ого числа');
    readln;
  end.