tehran |
Wysłany: Śro 10:05, 06 Lut 2008 Temat postu: Readkey |
|
program readkey;
uses crt;
Var
znak:char;
begin
writeln( 'Wcisnij jakis klawisz...');
znak:=readkey;
Writeln( 'Wcisniety zostal klawisz: ',znak );
End.
Program czeka az wcisnie sie jakikolwiek klawisz i wyswietla go. |
|