На паскаль нужна программа находящая минимум и максимум среди пяти чисел используя только условный оператор (без циклов и массивов).

12345678910111213141516171819202122var a, b, c, min, max, Z: real;beginwriteln('Введите три числа');readln(a,b,c);beginif (a>=b) then max:=aelse max:=b;if (max<=c) then max:=c;end;beginif (a>=b) then min:=belse min:=a;if (c<=min) then min:=c;end;writeln('Минимальное число ', min);writeln('Максимальное число ', max);Z:=(min)/(max);if (max=0) then writeln('Нет решений')elsewriteln('Z = ', Z);readlnend.