Помогите пожалуйста решить задачу
Через паскаль （программирование алгоритмов разветвляющейся структуры）
Задача: ДАНО 3 ЧИСЛА. НАЙТИ ПРОИЗВЕДЕНИЕ ДВУХ НАИМЕНЬШИХ ЧИСЕЛ
(НАПИСАТЬ ПРОГРАММУ И НАЧЕРТИТЬ БЛОК СХЕМУ)

var a,b,c,d:integer;beginWrite('Первое число: ');Readln(a);Write('Второе число: ');Readln(b);Write('Третье число: ');Readln(c);if (a < c) and (b < c) then d:=a*b;if (a < b) and (c < b) then d:=a*c;if (b < a) and (c < a) then d:=b*c;write('Результат: ',d);end.Всегда пожалуйста))