Помогите срочно, проболел тему, нужна помощь. Задание 1. Найти произведение цифр трехзначного числа.
Исправьте программу, запишите правильный вариант.
И составить блоксхему


Program 2pp;

Var a,b: integer;

Begin

Read (b);

c:=a mod 10; b:=a mod 100;

a:=a div 10;

Write (b,c,a);

End.

Program 2pp;

Var a,b: integer;

Begin

Read (a);

c:=a mod 10; b:=a div 100;

a:=(a div 10) mod 10;

Write (a*b*c);

End.