1) Дано целое число. Определить кратно ли оно 5 и 10

2) Написать программу,которая определяет,принадлежит ли точка(х,у) графику функции у=ах2+bх+с

1)

var a:integer;beginreadln(a);if a mod 5=0 then writeln('yes') else writeln('no');if a mod 10=0 then writeln('yes') else writeln('no');end.