Задача. Pascal

Решите пожалуйста 2 задачки на паскале.
1. Разработать программу вычисления выражения и вывода полученного результата на экран.
v=min(min(z, x),x+z,x-y)

2. Дан массив натуральных чисел. Найти сумму элементов, меньших нуля.

Заранее благодарю

 

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