Написать блок-схему и программу, которая на входе запрашивает двузначное число n, а на выходе печатает перевернутое s, например, если n=45, то s=54. полное

Var s,d,f,g,h,z,v: integer; begin write('введите остаток'); read(s); if s > 50 then begin  d: = s div 50; s: = s - d * 50; end; if s > 20 then begin  f: = s div 20; s: = s - f * 20; end; if s > 10 then begin  g: = s div 10; s: = s - g * 10; end; if s > 5 then begin  h: = s div 5; s: = s - g * h; end; if s > 2 then beginz: = s div 2; s: = s - g * z; end; if s > 1 then beginv: = s div 1; s: = s - g * v; end; writeln('50p =',d,'   20p =',f,'   10p =',g,'   5p =',h,'   2p =',z,'   1p =',v); end.

Var k,kc,ks, r,rc,rs, l,lc,ls: integer; summa: integer; begin writeln('введите цену карандаша'); readln(kc); writeln('введите цену ручки'); readln(rc); writeln('введите цену линейки'); readln(lc); writeln('введите кол-во карандашей'); readln(k); writeln('введите  кол-во ручек'); readln(r); writeln('введите  кол-во линеек'); readln(l); ks: = k * kc; // цена карандашей rs: = r * rc; // цена ручек ls: = l * lc; // цена линеек summa: = ks + rs +ls; // общая цена всех 3-х writeln('сумма = ', summa; readln; end.