Составить программу : дано три неравных числа a b и c. результату z предоставить значение, которое равняется квадрату меньшего из них.

program z_3

var

 z, a, b, c: real;

begin

 writeln (Введите числа a, b, c)

 readln(a, b, c);

 if (a > b) and (a > c) then  

   z := sqr(a);

 if (b > a) and (b > c) then  

   z := sqr(b);

 if (c > a) and (c > b) then  

   z := sqr(c);

 writeln('Z: ', z);

end.

Объяснение: