Напишите программу в паскаль 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.