СОСТАВЬТЕ НЕ МЕНЕЕ ТРЕХ ВАРИАНТОВ ПРОГРАММЫ ОПРЕДЕЛЕНИЯ НАИМЕНЬШЕГО ИЗ ТРЕХ ДАННЫХ ЧИСЕЛ....
 
Пожалуйста

Вот так.

1)Program n_1;var x,y,z,c:integer;beginreadln (x,y,z);c:=x;if c>y then c:=y;if c>z then c:=z;writeln (c);end.2)Program n_2;var x,y,z:integer; q,w,e:boolean;beginreadln (x,y,z);q:= (y>x) and (z>x);w:= (y<x) and (y<z);e:= (z<y) and (z<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;beginreadln (x,y,z);if (x<y) and (x<z) then writeln (x);if (y<x) and (y<z) then writeln (y);if (z<y) and (z<x) then writeln (z);end.