Трансляция - это когда по теливизору идет в настоящее время какое-то видео или что-то другое.
Вот такая блок-схема получилась. слева основная программа, справа подпрограмма СЦЧ (сумма цифр числа): получает на вход число и суммирует составляющие его цифры
Var A:integer;
Begin
WriteLn('Введи целое число');
ReadLn(A);
if (A>10)and(A<20) then WriteLn('Принадлежит')
else WriteLn('Не принадлежит20')
End.
<span><em>// PascalABC.NET 3.2, сборка 1449 от 23.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(25,1,99); a.Println;
Writeln('max-min=',a.Max-a.Min);
Writeln('Среднее арифметическое=',a.Average);
Writeln('Сумма нечетных=',a.Where(x->x.IsOdd).Sum);
end.</span>
<u>Пример</u>
29 64 88 37 45 50 81 67 69 93 82 42 5 22 42 17 11 21 94 6 6 58 51 24 14
max-min=89
Среднее арифметическое=44.72
Сумма нечетных=526