Меньшее из трех заданных чисел 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. 

сидерический год

обычно 1 символ = 1 байт = 8 бит, если другое не оговаривается в условии следовательно:

14400 * 10 : 8 = 18000 символа

336600 * 10 * 8 = 420750 символа