На чём писать?ну впрочем саму суть тут в условии: объявляешь 3 числа: a b c и условие if(a>0)then a:=a*a; if(b>0)then b:=b*b; if(c>0)then c:=c*c; выводишь на экран(или как там надо) сори за ошибки давно на паскале не писал