Var x, y: real; begin write('Введите x: '); readln(x); if x <= -6 then y:=1-x else if x <= -4 then y:=x/4 else y:=x; writeln('y = ', y:4:2); end.<span> </span>
Program z;{a1=6,d=}const n=7;var a:array[1..n] of real;a1,i:integer;d:real;begina1:=6;d:=(49-6)/7;for i:=1 to n do begina[i]:=a1+(i-1)*d;writeln(a[i]:3);end; end.