Цілоцисельне ділення т

Складіть програму обчислення добутку другої та третьої цифр цілого чотирьохзначного числа:
program p29;

uses crt;
Var a,b,c,f:integer;
BEGIN
Writeln('vedit chisio');
Read(b);
a:=b div 100 mod 10;
c:=b mod 100div 10;
f:=a+c;
Writeln(f);
END.





Складіть програму обчислення квадрату суми цифр цілого двохзначного числа. Екран повинен мати вигляд:
program p27;

uses crt;
Var n,c1,c2,c3,p:integer;
BEGIN
write('34:');
read(n);
c1:=n div 100;
c2:=n div 10 mod 10;
c3:=n mod 10;
p:=c1*c2*c3;
writeln(c1,'*',c3,'=',p);




END.







Складіть програму обчислення суми цифр цілого трьохзначного числа.
program cilehuslennya_dilennua;

uses crt;
var a,b,c,f:integer;
BEGIN
writeln('vvestu 3 snachecislo');
readln(c);
a:=c mod 10;
writeln(a);
b:=c div 100;
writeln(b);
f:=c div 10 mod 10;

writeln(f);








Складіть програму переведення суми грошей, заданої в копійках, у гривні та копійки
program suma_groshei;

uses crt;
var a,b,c:integer;
BEGIN
Writeln('vedit kilkist kopiechok');
Read(a);
c:=a div 100;
b:=a mod 100;
writeln('gruven',c,'kop.',b);
readln;
END.
........................
Перевірка
Вхід 2345
Вихід гривень 23 копійок 45
.........................