По блок-схеме составить решение задачи на языке Паскаль. А также 2

1.

var

x: integer;

y: real;

begin

readln(x);

if xgt;=0 then

y:=sqrt(x)

else

y:=sqr(x);

writeln(x, ' ',y);

end.

P.S. быстрее всего, в условии требовалось sqrt, ибо sqr это и есть квадрат числа.

var

x: integer;  

y: real;

begin

readln(x);

if xgt;=1 then begin

y:=sqrt(x-1);

writeln(y);

end

else if xlt;-1 then

begin

y:=x/(-1);

writeln(y);

end

else

writeln('Ф-я значений не имеет');

end.