Задача№5

Складіть програму обчислення добутку другої та третьої цифр цілого чотирьохзначного числа
program p29;
uses crt;
Var a,b,c,d,f: integer;
BEGIN
Writeln(' Vedit chislo');
Read( b);
a:=b div 100 mod 10;
c:= b mod 100 div 10;
f:= a+c;
Writeln(f);