Prova un po' questo:
Fammi sapere:
program prova;
uses crt;
var tasto:char;
begin
repeat
writeln('Premi [ESC] per uscire');
tasto := readkey;
until (tasto = chr(ord(27)));
end.
Prova un po' questo:
Fammi sapere:
program prova;
uses crt;
var tasto:char;
begin
repeat
writeln('Premi [ESC] per uscire');
tasto := readkey;
until (tasto = chr(ord(27)));
end.
Hanno rapito Berlusconi e chiedono un risarcimento di 10 milioni di euro, altrimenti gli danno fuoco. Partecipa anche tu... abbiamo già raccolto 500 litri di benzina...
Chi vuole intendere INTENDA, gli altri IN ROULOTTE
Permessi di invio
Rispondi quotando