Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  ciao
Language: PASCAL
Code:
program AMORE;
var
  risp    : string [250];
  x       : string [250]; 
begin
risp := 'specchio specchio delle mie brame chi è la più           bella del reame'  
writeln('Clicca INVIO per far avanzare il programma in alcune occasioni');

repeat
     writeln('Salve mia principessa, sono lo Specchio parlante. Le mostrerò il mio messaggio solo se reciterà la famosissima formula magica.');
     writeln('P.s. Non introdurre segni di punteggiatura');
     Readln(x);
until x = risp;

writeln('Non esiste principessa più bella e splendente di voi in questo reame così come nell'''intero universo.');
writeln('La luna, il sole e le stelle tutte si inchinano davanti alla tua luce candida e ingelosiscono davanti allatua bellezza senza confine alcuno');
writeln('uolelleggere un ultimo messaggio?    s/n');
readln(x)
if (x = 's') than
     begnin
     writeln(' Apri questo programma ogni volta che ti senti triste o sola o che semplicemente hai voglia di sorridere. In questo modo io potrò starti accanto anche se non ci sarò');
     writeln('Ti amo tanto amore');
     end;
else    
writeln(' FINE  ');

end.          
          
Comments: