Ввести число. По выбору пользователя найти его противоположное, вычесть из него это же число, уменьшенное вдвое, или найти обратное число

var n: integer;
    
begin
 
Writeln('Vvedit chislo ');
Readln(n);
case n of
'n<0'  : n:=n*(-1); 
'n>0'  : n:=n-n/2; 
'n>=23'  : n:=n/1; 
else  writeln('ne hochu');
end;
writeln(n);
end.

var f: integer;n, res: real;
 
 begin
 
  Write('Ââåäèòå ÷èñëî: ');
  Readln(n);
  writeln('Ââåäèòå 0, ÷òîáû íàéòè ïðîòèâîïîëîæíîå ÷èñëî.');
  writeln('Ââåäèòå 1, ÷òîáû âû÷åñòü èç íåãî ýòî æå ÷èñëî, óìåíüøåííîå âäâîå.');
  writeln('Ââåäèòå 2, ÷òîáû íàéòè îáðàòíîå ÷èñëî.');
  readln(f);
  if f=0 then res:= -n;
  if f=1 then res:= n - (n/2);
  if f=2 then res:= 1/n;
  writeln(res:6:5);
  readln;
 end.

var f: integer;n, res: real;
 
 begin
 
  Write('Введите число: ');
  Readln(n);
  writeln('Введите 0, чтобы найти противоположное число.');
  writeln('Введите 1, чтобы вычесть из него это же число, уменьшенное вдвое.');
  writeln('Введите 2, чтобы найти обратное число.');
  readln(f);
  case f of
  0: res:= -n;
  1: res:= n - (n/2);
  2: res:= 1/n;
  end;
  writeln(res:6:5);
  readln;
 end.

uses crt;
var n:real;
    w:char;
begin
clrscr;
write('Введите число n');
readln(n);
repeat
clrscr;
writeln('Выберите действие');
writeln('1-Найти противоположное');
writeln('2-Вычесть то же, уменьшенное вдвое');
writeln('3-Найти обратное число');
writeln('Другое выход');
readln(w);
case w of
'1':begin
    write(-n);
    readln
    end;
'2':begin
    write(n-n/2);
    readln
    end;
'3':begin
    write(1/n);
    readln
    end;
else exit;
end;
until not (w in ['1'..'3']);
end.