ALGORTIMO EURO/DOLLARO
VAR
EURO, DOLLARO, CAMBIO
BEGIN
PRINT “EURO?”
READ EURO
PRINT “CAMBIO?”
READ CAMBIO
IF EURO > 0
IF CAMBIO > 0
DOLLARO EURO / CAMBIO
PRINT “EURO” . EURO . “=” . “DOLLARI” . DOLLARO
ELSE
PRINT “ERRORE CAMBIO <0”
ENDIF
ELSE
PRINT “ERRORE EURO < 0”
ENDIF
END