Проверьте, делится ли выбранное число на 5, на 11 или 13 нужно сделать в pascal abc

Var a: integer; begin writeln('введите число'); readln(a); if (a mod 5=0) then writeln('число ',a,' делится на число 5') else writeln('число ',a,' не делится на число 5'); if (a mod 11=0) then writeln('число ',a,' делится на число 11') else writeln('число ',a,' не делится на число 11'); if (a mod 13=0) then writeln('число ',a,' делится на число 13') else writeln('число ',a,' не делится на число 13'); end.

1. utfa.fps

2.какую программу?

3. x(n)=5n²-4n-1

xn-нечётное тогда, когда n-чётное

x(0)=-1

x(2)=11

x(4)=63

x(6)=155

x(8)=287

x(10)=459

x(12)=671

x(14)=923

x(16)=1215

x(18)=1547

x(20)=1919 

var sum,n,i: integer;

begin

readln(n);

sum: =0;

for i: =1 to n do

    sum: =sum+i;

writeln(sum);

readln;

end.