1)
Формула: S := a*a*sqrt(3)/4;
2)
read(a);
b:=a*a;
a:=b*b*b;
3) if a mod 2=0 then writeln(chetnoye) else writeln(nechetnoye);
if a<0 then wtiteln(polozhitelnoye) else writeln(otrizatelnoe);
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.