A <- 1
B <- 2
C <- 2.5
if ( A + B < C ) print ( "Triangolo impossibile" ) else
if ( A == C ) print ( "Triangolo equilatero" ) else
if ( A == B || B == C ) print ( "Triangolo isoscele" ) else
print ( "Triangolo scaleno" )
comp <- c( 'Mozart', 'Beethoven', 'Schubert' )
date1 <- c( 1756, 1770, 1797 )
date2 <- c( 1793, 1827, 1828 )
for ( i in 1 : length ( comp ) )
print ( c( comp[ i ], date1[ i ], date2[ i ] ) )