2я задача (массив одномерный, размерность и содержимое с клавиатуры)
var
i,n:integer;
sum:real;
a: array [1..200] of real;
begin
readln(n);
for i=1 to n do
readln(a[i]);
for i=1 to n do
begin
if (a[i]<0) then
sum:=sum+a[i];
end;
writeln(sum);
readln();
end.

Первая задача
Вводятся переменные в последовательности z,x,y

Program z1;
var a,z,x,y,v:real;
begin
readln(z,x,y);
if z<x then a:=z
else a:=x;
if (a<x+z) and (a<x-y)
then v:=a
else if (x+z<a) and (x+z<x-y)
then v:=x+z
else v:=x-y;
writeln(v);
end.

Можно написать лучше, использовать процедуры, но я в этом выгоды не вижу.

а сам хоть пробовал? наброски кода кинь..

я паскаль не знаю почти что =))) тока примитив могу, я больше на С++ =)))

Огромное спасибо KentPol и rodger