По-моему так. Смотрите картинку. .
1 Один за всех, и все за одного.2 Один с сошкой'
Var x,y:real;
begin
write('x = ');
readln(x);
if (x<-4)or(x>4)
then writeln('Функция не определена')
else begin
if x<0
then y:=0
else if x<2 then y:=x*x
else y:=4;
writeln('Y = ',y);
end;
end.
Пример:
x = 1.5
Y = 2.25
Черти просто по клеточкам чтобы получился квадрат потом раздели их на 3 равные части
const mmm=5;
var
x:array[1..mmm] of integer;
k, n, bmaks: integer;
begin
for n:=1 to mmm do readln (x[n]);
for n:=1 to mmm-1 do
for k:=1 to mmm-n do
begin
bmaks:=x[k+1];
X[k+1]:=x[k];
x[k]:= bmaks;
end;
for n:=1 to mmm do
writeln(x[n]);
end.