Из двух чисел выбрать наименьшее если оно отрицательное, то возвести в квадрат, в противном случае извлеч квадратный корень.

program zz1;

var a, b, min:integer; / /задаем переменные целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (b);

if (a
if (b
if min < 0 then writeln (' квадрат наименьшего = ', sqr (min)) / / выводим ответ

else write (' квадратный корень из наименьшего = ', sqrt (min));

end.