program asd; uses crt; var letters: set of 'A'..'Z'; kar: char; Begin clrscr; letters:=[]; while kar <> #27 do begin if keypressed then begin kar:=readkey; if kar=#0 then begin kar:=readkey; kar:=#0; end; kar:=upcase(kar); writeln(kar); if kar in ['A'..'Z'] then letters:=letters+[kar]; end; end; write('read letters from keyboard: '); for kar:='A' to 'Z' do begin if kar in betuk then write(kar); end; writeln; write('not read letters from keyboard: '); for kar:='A' to 'Z' do begin if not(kar in letters) then write(kar); end; readln; end.
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)