Programm ;

Var y,i: integer; 
Begin 
y := 5; 
For i := 1 to 3 do 
y := y + 5*i; 
Writeln(y); 
End.