напишите программу в Паскаль ABC, которая запрашивает значения x,y,z, а затем выводит значение следующих функций: max(x,min(y,z)) и  min(min(x,y),z)

var x,y,z,a:integer;
begin
read(x;y;z);
if y<z then a:=y else a:=z;
if x>a then write(x) else write (a);
writeln;
if y<x then a:=y else a:=x;
if a<x then write (a) else write (x);
end.