Даны три действительных числа

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