Kristina_until

{b)Дано натуральное число n.
Получить наименьшее число вида 2r, превосходящее n.}

var
    n,r,s:integer;
begin
    write('Vvedi n: ');
    readln(n);
    r:=1;
    repeat
        r:=r+1;
    until(2*r>n);
    writeln('2*',r,'=',2*r);
    read;
End.