program exercise

informatica

program exercise;

(*Programma che, introdotto n (integer) da tastiera, se e' negativo,

scriva l'opposto, altrimenti: se e' multiplo di 3 calcoli il cubo

se no il quadrato*)

var n,cubo,quad,opp_n:integer;

BEGIN

writeln('Dimmi un intero...');

readln(n);

if n < 0 then

BEGIN

opp_n:=0 - n;

writeln('L''opposto di ',n,' e'' ',opp_n,'.');

END

else

BEGIN

if n mod 3 = 0 then

BEGIN

cubo:=sqr(n) * n;

writeln('Il cubo di ',n,' e'' ',cubo,'.');

END

else

BEGIN

quad:=sqr(n);

writeln('Il quadrato di ',n,' e'' ',quad,'.');

END;

END;

readln

END.