Помогите составить программу : Дано три неравных числа a b и

Ответ:

program z_3

var

 z, a, b, c: real;

begin

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

 readln(a, b, c);

 if (a gt; b) and (a gt; c) then  

   z := sqr(a);

 if (b gt; a) and (b gt; c) then  

   z := sqr(b);

 if (c gt; a) and (c gt; b) then  

   z := sqr(c);

 writeln('Z: ', z);

end.

Изъясненье: