[PASCAL] La finestra si chiude prima di aver finito!!! [urgente]

[Porippoppero]

Program DivisoriPrimi;

Uses Crt;

Var a:integer; (* primo numero *)
    b:integer; (* secondo numero *)
    tmp:integer; (* variabile che conterrà l'i-esimo divisore *)
    min: integer; (* il minimo fra a e b *)
    max: integer; (* il massimo fra a e b *)
    trovato: boolean; (* flag: true se esiste un divisore comune *)

Begin
   clrscr;
   Write('Introdurre primo valore: ');
   Readln(a);
   Write('Introdurre secondo valore: ');
   Readln(b);
   If (a<b) Then
    Begin
      min := a;
      max := b;
    End
   Else
    Begin
      min := b;
      max := a;
    End;

   trovato := false;
   tmp := min;
   While (Not(Trovato) And (tmp > 1)) do
   Begin
      If (((min mod tmp) = 0) and ((max mod tmp) = 0)) Then
         trovato := true
      Else
         tmp := tmp - 1;
   End;

   If (trovato) Then
      Writeln('I due numeri non sono primi tra di loro: ',tmp,' li divide!')
   Else
      Writeln('I due numeri sono primi tra di loro!');
   
End.

:quote: questo è il codice sorgente

arrivati qui:

  If (trovato) Then
      Writeln('I due numeri non sono primi tra di loro: ',tmp,' li divide!')
   Else
      Writeln('I due numeri sono primi tra di loro!');

la finestra del mio exe si chiude.....

come posso evitare ciò??????

please

[anx721]

prova ad aggiungere alla fine un'istruzione readln.

[Porippoppero]

tnx funziona!!!!!


cmq sto pascal non è un granchè come linguaggio di programmazione

[anx721]

Il pascal viene soprattuto usato per la didattica, è buono per imparare a programmare, e per formarti una base di programmazione. Poi puoi anche passare alla versione 'ad oggetti' del pascal, utilizzando il Delphi della Borland con cui puoi anche costruire programmi con interfaccia grafica.