Упражнение 1
А) Все электроприборы работают с помощью электрического тока.
Б) Каждый школьник должен знать и неукоснительно выполнять правила поведения в школе и этикет.
В) Глаза должны находить от монитора компьютера на расстоянии 50 сантиметров, глазам необходимо давать отдохнуть каждые 10 минут.
решением неравенста является множество {4 5 6 7}
его мощность равна 4
вот думаю поймешь что куда вписать
Var a: integer;
begin
readln(a);
if (a>9) and (a<100) and (a mod 7=0)
then write('число кратно 7') else
if (a mod 7=0) then
write('число не двузначное, но кратно семи')
else write('число не кратно 7');
end.