Меньшее из трех заданных чисел ABC заменить удвоенным произведением этих чисел. Через паскаль пожалуйста.

program av;

var a,b,c,d,e,f:integer;

begin

writeln('введите 3 числа');

readln(a,b,c);

if (a<b) and (a<c)

then a:=2*a*b*c

else 

if (b<a) and (b<c)

then   b:=2*a*b*c 

else  c:=2*a*b*c;

writeln(a,' первое число',b,'второе число',c' третье число') ;

end.