var 
  Num: real;
  Oper: integer;
  Rez: real;
begin
  write('Введите число: ');
  readln(Num);
  write('Введите номер операции: 1 - модуль, 2 - корень, 3 - квадрат');
  readln(Oper);
    case Oper of
    1: Rez := abs(Num);
    2: Rez := sqrt(Num);
    3: Rez := sqr(Num);
    else    writeln('Введен некоректный номер операции');
  end;
  writeln('Результат: ',Rez);

end.