Определите, при каком наибольшем введённом значении переменной s программа выведет число 81.

var s, n: integer;
begin
readln\(s\);
n := 1;
while s < 90 do begin
s := s + 6;
n := n * 3;
end;
writeln\(n\)
еnd.