1)
begin
write('три в шестой степени равно ',3*3*3*3*3*3)
end.
2)
begin
write('(15*2+8)-1=',(15*2+8)-1)
end.
2) это я тебе без переменных решил вторую, держи с переменными
var x,y,z:integer;
begin
x:=15;
y:=2;
z:=8;
writeln(' (15*2+8)-1=', (x*y+z)-1)
end.