Площадь одной грани s1=а^2 площадь полной поверхности: т.к. граней у куба 6, то S=6*a^2 объем прямоуг. параллелепипеда=произведение длины, ширины и высоты, а поскольку это куб, то V=a*a*a=a^3 значок ^ означает степень. Удачи!
Var s:array[1..100]:string; i:integer; begin write('введите слово); read(s); for i:=1 to lenght(s) do if s[i]+s[i+1]+s[i+2] = 'рак' then writeln('da') else writeln('net') end.