<span>Каталог с библиотеками Turbo Pascal называется TP (если у вас Borland Pascal то BP). В этом каталоге надо найти файл с именем turbo.exe, подвести к нему курсор и нажать </span>
Program _1; Var x,fx:integer; begin writeln('Введите значение X'); readln(x); if (x>0) then begin fx:=x; end; if (x=0) then beginfx:=0; end; if (x<0) then begin fx:=-sqr(x); end; writeln('F(x): ',fx); end.