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

Если же в первом номере требовалось sqr, как и написано, то номер сводится к тому, чтобы просто возвести любое число в квадрат

1.

var

x: integer;

y: real;

begin

readln(x);

if x>=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 x>=1 then begin

y:=sqrt(x-1);

writeln(y);

end

else if x<-1 then

begin

y:=x/(-1);

writeln(y);

end

else

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

end.