Нужно знать модель ноутбука, что-бы дать ответ. Но по идее по умолчанию на них ничего не должно стоять, в каждой программе свое. Проверьте, не залипла ли у вас кнопка "fn" например
Var a:integer;
begin
readln(a);
writeln((a mod 10), ((a mod 100) div 10), (a div 100));
<span>end.</span>
Мы взяли функцию f(x) = sin(x)-2*cos(x).
В процедуру-функцию function можно вставлять любые функции
program func;
uses Crt;
var a, b, x, y:real;
function f(var x:real):real;
begin
f:=sin(x)-2*cos(x);
end;
begin
ClrScr; {Очистка экрана}
Write (' a= '); ReadLn(a);
Write (' b= '); ReadLn(b);
WriteLn;
x:=a;
while x<=b do
begin
y:=f(x);
WriteLn ('y(', x:1:0, ')= ', y:4:2);
x:=x+1;
end;
ReadLn;
end.