program lambad;
var
m, k, l:integer;
begin

writeln('Kirjuta lamba mass ');
readln(m);
writeln('Sisesta lamba karva pikkus ');
readln(k);
if (k<2) and (m<=40) then
l:=15*m;
writeln('Lamba hind on ' ,l);
if (k>=2) and (m<=40) then
l:=15*m+3*m; writeln('Lamba hind on ',l);
if (k>=2) and (m>40) then
l:=15*m+3*m+(k-2)*m; writeln('Lamba hind on ',l);
end.