(* riconoscimento della pressione di F1 *)
USES crt;
VAR c : char;
BEGIN
    c := readKey;
    IF c = #0 THEN
    BEGIN
        c := readKey;
        IF c = #59 THEN

            [è stato premuto F1]

    END;
END.