var t,s,n:integer;
begin
readln(t);
s:=t*9;
if s>8 then n:=0 else n:=80-s;
writeln('n = ',n);
end.
Пример:
15
n = 0
Объяснение:
вроде
