Используя модуль crt

uses crt;
var w:char;
begin
repeat
window(1,1,80,25);
textbackground(15);
textcolor(0);
clrscr;
writeln('Ваш выбор');
writeln('F1-квадратный корень');
writeln('F2-квадрат');
writeln('F3-синус');
writeln('F4-косинус');
writeln('F5-тангенс');
writeln('F10-выход');
w:=readkey;{читаем первый символ по коду}
if w=#0 then{если расширенный}
w:=readkey; {второй}
if w in [#59..#63] then {F1-F5}
 begin
  clrscr;
  window(20,5,60,20);
  textbackground(1);
  textcolor(3);
  clrscr;
 end;
case w of
#59:begin
    writeln('квадратный корень');
    readln;
    end;
#60:begin
    writeln('квадрат');
    readln
    end;
#61:begin
    writeln('синус');
    readln
    end;
#62:begin
    writeln('косинус');
    readln
    end;
#63:begin
    writeln('тангенс');
    readln
    end;
#68:exit;
end;
until w=#68
end.