Первая задача
Вводятся переменные в последовательности 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.

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