Построить блок схемы алгоритмов мытья посуды и чистки картошки: )

Первая: program qwer; uses crt; var i, kol : integer; begin kol : = 10; for i : = 10 downto 1 do begin writeln(kol,' поросят пошли купаться в море.'); writeln(kol,' поросят пошли купаться в море.'); writeln(kol,' поросят резвились на просторе.'); writeln(kol,' один из них утоп – его сложили в гроб,'); kol : = kol - 1; writeln('и вот вам результат – ',kol,' поросят…'); end; end. вторая:   program qwer; uses crt; var i, pr, n : integer; begin readln(n); pr : = 1; for i : = 1 to n do pr : = pr * i; write(pr); end.третья: program qwer; uses crt; var s, i : integer; begins : = 115; for i : = 1 to 9 dowriteln(i * 100,'г = ',i * 100 * s / 1000,'руб'); end.готово!

двоичную

948 - 1110110100

763 - 1011111011

994,125 - 1111100010.001

523,25 - 1000001011.01

203,82 - 11001011.11010001111010111

563 - 1000110011

264 - 100001000

234,25 - 11101010.01

53,125 - 110101.001

286,16 - 100011110.001010001111010111

восьмеричную

948 - 1664

763 - 1373

994,125 - 1742.1

523,25 - 1013.2

203,82 - 313.6436560507534121727

563 - 1063

264 - 410

234,25 - 352.2

53,125 - 65.1

286,16 - 436.12172702436560507534

шестнадцатеричную

948 - 3B4

763 - 2FB

994,125 - 3E2.2

523,25 - 20B.4

203,82 - CB.D1EB851EB851EB851EB8

563 - 233

264 - 108

234,25 - EA.4

53,125 - 35.2

286,16 - 11E.28F5C28F5C28F5C28F5C