Var a,b,n:integer;
begin
readln(a);//начало интервала
readln(b);//конец интервала
readln(n);//число
if (k>=a) and (k<=b) then
writeln('пренадлежит')
else writeln('не пренадлежит')
end.
Var
n: integer;
begin
readln(n);
writeln(n mod 7 = 0);
end.
Как обновить поток чтения я хз, поэтому тупо закрыл и открыл снова :)))
Оператор присваивания
Составной оператор
Оператор безусловного перехода
Условные операторы
Оператор выбора Case
Операторы цикла