Вот, сюда не добавишь исходники кумира (за что я очень мирно и культурно ругаю администраторов), так что тхтшники ловите, подгрузите из кумиром
В первом номере c = 1
Во втором b = 14
Var
m: integer;
begin
for m:=12 downto 6 do
writeln (m*m*m);
readln;
end.
Var A : array[1..12] of integer; i,max : integer;
begin
for i:=1 to 12 do
begin;
read(A[i]);
if A[i]>max then max:=A[i];
end;
Writeln(max);
end.