Если я правильно понял,то ответ вот: var a:integer; begin readln(a); if (a mod 2 = 0) and (a mod 10 = 6) then writeln(a,' чётное и оканчивается на 6'); end.
Интернет – одно из самых удивительных изобретений 20-го века. Он дает безграничные возможности в отношении различных коммуникаций, получения и хранения нужной информации, направлении мультимедиа. Отношение к нему различных слоев населения неоднозначно, содержит даже диаметрально противоположные позиции, но огромное значение его в жизни современного человека не будет оспариваться никем.
Эта слайдовая презентация является результатом ученического исследования на тему влияния интернета на жизнь человека и на все общество в целом. На ее слайдах рассматриваются вопросы:
var a:integer;
begin
readln(a);
if (a mod 2 = 0) and (a mod 10 = 6) then
writeln(a,' чётное и оканчивается на 6');
end.