Нарисовать в qbasic. у меня что-то не получается.​

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

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) 

не одновременно, а сначала alt и только потом 3 (на цифровой клавиатуре - справа)

1.найти разность показаний счетчика на конец месяца и на начало месяца.

2.умножить на цену одного квт/часа

program;

var

max,val: integer;

label

start, ends;  

begin 

max: =-50;

val: =50;

start:

if val> max then val: =val-10

if val=max then goto ends;  

goto start;  

ends:

end.