Задание

Укажите количество различных значений, которые будут выведены на экран в результате работы программы, при вводе значений переменной 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.