С помощью таблиц удобно фиксировать наличие или отсутствие связей между различными объектами
Program z1;
var a, b:integer;
begin
write(' Введите возраст Саши - '); read(a);
write(' Введите возраст Mаши - '); read(b);
if a>b then writeln(' Саша старше Маши на ',a-b,' лет');
if a<b then writeln(' Маша старше Саши на ',b-a,' лет');
<span>end.</span>
3
если остаток от деления числа Х на 3 равен 0 и остаток от деления числа Х на 6 НЕ равен 0, то....