zadacha1_1.pas

program zadacha1;

uses Math;

var
  x : integer;

function z(x : integer) : real;
var y : real;
begin
  y := 1.2 * sqrt(x) + abs(x);
  if y < 0 then z := power(y,3) + sin(x);
  if y > 0 then z := 0.2 * y;
  if y = 0 then z := sqr(x);
end;

begin
  read(x);
  write(z(x):6:4);
  writeln;
  readln;
end.

zadacha1_3.pas

program zadacha3;

var
  arr : array of integer;
  arr2 : array of integer;
  i, tmp : integer;
  sum : integer;

begin

write('Array size is? ');
read(tmp);
setlength(arr, tmp);
setlength(arr2, tmp);

for i := 0 to length(arr)-1 do
begin
  read(tmp);
  arr[i] := tmp;
end;

sum := 0;

for i := 0 to length(arr)-1 do
begin
  if sqr(arr[i]) > 100 then
    begin
      sum := sum + sqr(arr[i]);
      arr2[i] := 1;
    end
  else
    arr2[i] := arr[i];
end;

writeln('sum = ', sum);
for i := 0 to length(arr)-1 do
  write(arr[i]);
writeLn;
for i := 0 to length(arr2)-1 do
  write(arr2[i]);

writeLn();
readLn;
end.

zadacha2_4.pas

program fibonacci;

var
  i, sum, prev, curr : integer;

begin
prev := 0; write(prev); write(' ');
curr := 1; write(curr); write(' ');

for i := 1 to 40 do
begin
  sum := prev + curr;
  if sum <= 40 then
    begin
      prev := curr;
      curr := sum;
      write(sum);
      write(' ');
    end
  else
    break;
end;

end.