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

Var a,b,c,d:integer;
begin
Write(Первое число: );
Readln(a);
Write(Второе число: );
Readln(b);
Write(Третье число: );
Readln(c);
if (a lt; c) and (b lt; c) then d:=a*b;
if (a lt; b) and (c lt; b) then d:=a*c;
if (b lt; a) and (c lt; a) then d:=b*c;
write(Результат: ,d);
end.

Всегда пожалуйста))