Определить, делится ли данное положительное целое число на 3 и на 5.

 var s,n,i:integer; d,h:string; begin  writeln('Введите  число'); Readln(n);  if (n mod 3 = 0) and (n mod 3= 0) then  writeln('число ',n, ' делится на 3 и на 5')  else  writeln('число ',n, ' не делится на 3 и на 5') end.