Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны.
На чём писать?ну впрочем саму суть тут в условии:
объявляешь 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;
выводишь на экран(или как там надо)
сори за ошибки давно на паскале не писал