Задание 
   Укажите количество различных значений, которые будут выведены на экран в результате работы программы, при вводе значений переменной s от 10 до 15.
var s, n: integer;
begin
readln\(s\);
n := 1;
while s < 70 do
begin
s := s + 13;
n := n * 2;
end;
writeln\(n\)
end.