Написать 4 программы.

[Sanjke123]

1. По ребру найти площадь грани, площадь боковой поверхности и объём куба.
2. Дан массив из строковых символов, расположить в порядке от ‘z’ до ‘a’.
3. Найти сумму квадратов четных чисел в интервале, заданном значениями переменных m и n.
4. Дано натуральное число n. Вычислить произведение первых n сомножителей: 1/1 х 3/2 х 5/3
х - это умножение.

Нужно тупо для зачёта, в этом ничего не соображаю.
Прощу помощи в написании полной программы, от начала до конца

[Mad_Cat]

#1

var a:real;
begin
write('a=');
readln(a);
writeln(a*a:6:2,' ',6*a*a:6:2,'  ',a*a*a:6:2);
readln;
end.

#3

var i ,m,n:integer;
s:Longint;
begin
s:=0;
readln(m,n);
for i:=m to n do
if not odd(i) then s:=s+sqr(i);
writeln(s);
readln;
end.

#3 нe люблю сортировки)Обожаю циклы!!!

var s,res:string;
c:char;
begin
readln(s);
res:='';
For c:='z' to 'a' do
begin
While pos(c,s)<>0 do begin Res:=res+c;delete(s,pos(c,s),1); end;
if s='' then break;
end;
s:=res;
writeln(s);
Readln;
end.

#4

var
p:real;
k,i,n:integer;
k:=1;
p:=1;
readln(n);
For i=1 to n do
  begin 
p:=p*k/i;inc(k,2);
end;
Writeln(p);
readln;
end.