Условные операторы: определить произведение цифр двух заданных чисел - PascalABC.NET

Формулировка задачи:

Даны двa числа a, b. Определить произведение их цифр и вывести сообщение. 1. a=46, b=78 2. a=41, b=81 3. a=39, b=76 4. a=29, b=53 Вообще тема: условные операторы. Задание: написать блок-схему и программу расчета функции для всех вариантов переменных. Как написать программу проще я не знаю, нигде не нашёл. Источники где это можно узнать тоже приветствуются) У меня вот такая вот херабора получилась и ничего не решается:

var
a, b :integer;
c :real;
 
begin
writeln('введите a');
readln(a);
writeln('введите b');
readln(b);
c:=a*b;

begin
writeln('введите a');
readln(a);
writeln('введите b');
readln(b);
c:=a*b;

begin
writeln('введите a');
readln(a);
writeln('введите b');
readln(b);
c:=a*b;

begin
writeln('введите a');
readln(a);
writeln('введите b');
readln(b);
c:=a*b;
 
end;
end;
end;
end.

Решение задачи: «Условные операторы: определить произведение цифр двух заданных чисел»

Листинг программы

p:=1;
while a>0 do
 begin
  p:=p*(a mod 10);
  a:=a div 10;
 end;

Объяснение кода листинга программы

В начале переменной p присваивается значение 1.
Затем, пока число a больше 0, выполняется следующий блок кода: a. Значение переменной p умножается на цифру числа a, которую можно получить с помощью операции модуля (%). b. Число a делится на 10 с помощью операции деления (/).
После выполнения цикла переменная p будет содержать произведение цифр числа a.