Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны.

На чём писать?ну впрочем саму суть тут в условии:

объявляешь 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;

 выводишь на экран(или как там надо)

сори за ошибки давно на паскале не писал