var a: integer;begin
readln(a); if ((a mod 3 <> 0) and (a mod 10 = 0)) then writeln('истина') else write('ложь');end;
Добрый день. Меня заинтересовал ваш ответ "var a: integer;begin
readln(a); if ((a mod 3 <> 0) and (a mod 10 = 0)) then ..." на вопрос http://www.liveexpert.org/topic/view/1982558-zapisat-uslovie-kotoroe-yavlyaetsya-istinnim-kogda-celoe-a-ne-kratno-trem-i-okanchivaetsya-nulem-programma-na-pascal-abc-net. Можно с вами обсудить этот ответ?