Блоксхему пж program wk; var x,a,b,c:integer; begin Readln(x); A:=x mod 10; b:=x div 100; c:=(x div 10)mod 10; x:=a*100+b*10+c; Writeln(x); Writeln(a,' ',b,' ',c); end.
Тут нет ветвлевния. Блок схема: Старт - Ввод данных - Вычисления - Вывод данных - Конец