Написать программу на языке pascal определить сумму чисел вводимых с клавиатуры, причем только тех, которые кратны 5 и не кратны 2 повторюсь, программу на pascal

Var n,a,s,i: integer; begin write('количество чисел = '); readln(n); writeln(n,' чисел: '); s: =0; for i: =1 to n do   begin   readln(a);   if (a mod 5=0)and(a mod 2< > 0) then s: =s+a;   end; writeln('s = ',s); end. пример: количество чисел = 10 10 чисел: 18 40 25 43 61 45 30 54 37 15 s = 85

Данная программа выполнена для pascalabc.net, немного кривая, но полностью рабочая.  uses graphabc; var i: integer; procedure boy(z,w: integer); begin rectangle(z-20,w-30,z+20,w+40); moveto(z-20,w-20); lineto(z-35,w+15); lineto(z-20,w); lineto(z-20,w-20); floodfill(z-25,w,clbrown); moveto(z+20,w-20); lineto(z+35,w+15); lineto(z+20,w); lineto(z+20,w-20); floodfill(z+25,w,clbrown); floodfill(z,w,clblue); moveto(z-10,w+40); lineto(z-10,w+70); lineto(z-3,w+70); lineto(z-3,w+40); lineto(z+3,w+40); lineto(z+3,w+70); lineto(z+10,w+70); lineto(z+10,w+40); lineto(z-10,w+40); floodfill(z-5,w+65,clbrown); floodfill(z+5,w+65,clbrown); circle(z,w-40,20); floodfill(z,w-40,clbrown); end; procedure ball(x,y: integer); begin circle(x,y,15); floodfill(x,y,clred); end; begin lockdrawing; for i: =1 to 20 do begin boy(100,200); ball(100+i*5,200-i*5); ellipse(200,115,250,140); redraw; clearwindow(clwhite); end; for i: =1 to 5 do begin boy(100,200); ball(200+i*5,100+i*5); ellipse(200,115,250,140); redraw; clearwindow(clwhite); end; for i: =1 to 25 do begin boy(100,200); ball(225,125+i*5); ellipse(200,115,250,140); redraw; clearwindow(clwhite); end; end.