даны 3 числа A B C найти малое, максимальное и среднее.

program z1;

var a,b,c:real;

begin

writeln('Введите a');

readln(a);

writeln('Введите b');

readln(b);

writeln('Введите c');

readln(c);

if (agt;b) and (agt;c) then writeln('a - величайшее число') else

if (bgt;a) and (bgt;c) then writeln('b - наивеличайшее число') else

writeln('c - величайшее число');

if (alt;b) and (alt;c) then writeln ('a-меньшее число') else

if (blt;a) and (blt;c) then writeln ('b-наименьшее число') else

writeln ('c-меньшее число');

  if ((agt;b) and (a lt; c)) or ((a lt; b) and (a gt; c)) then

writeln('a-среднее число')

else

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

writeln('b-среднее число')    

else

writeln('c-среднее число');

end.