СОСТАВЬТЕ НЕ Наименее 3-х ВАРИАНТОВ ПРОГРАММЫ ОПРЕДЕЛЕНИЯ Меньшего ИЗ 3-х ДАННЫХ

На Паскале?

1)Program n_1;
var x,y,z,c:integer;
begin
readln (x,y,z);
c:=x;
if cgt;y then c:=y;
if cgt;z then c:=z;
writeln (c);
end.
2)Program n_2;
var x,y,z:integer; q,w,e:boolean;
begin
readln (x,y,z);
q:= (ygt;x) and (zgt;x);
w:= (ylt;x) and (ylt;z);
e:= (zlt;y) and (zlt;x);
if e=True then writeln (z);
if w=True then writeln (y);
if q=True then writeln (x);
end.
3)Program n_3;
var x,y,z:integer;
begin
readln (x,y,z);
if (xlt;y) and (xlt;z) then writeln (x);
if (ylt;x) and (ylt;z) then writeln (y);
if (zlt;y) and (zlt;x) then writeln (z);
end.