Напишите алгоритм действий рисунка слона с команд "в точку" "вектор"

min і max нужно присвоить а[1].

если есть д ш и в то это не куб а параллелипипед

var 

a,b,c,r: real;

begin

readln(a,b,c,r);

if (2*r< a) and (2*r< b) and  (2*r< c)

then writeln('поместится')

else writeln ('не поместится');

end.

для куба достаточно одного условия (2*r< a) 

если его поставить так, чтоб краев рядом не было, куда-нибудь в центр. тогда он всегда будет вертется

program d1; varx1,x2,y1,y2,d: real; beginread(x1); read(x2); read(y1); read(y2); //d: =sqrt(sqr(x2-x1)+sqr(y2-y1)); write('ðàñòîÿíèå ìåæäó òî÷êàìè: ',d); end.