Написать программу, вычисляющая сумму четных положительных чисел и количество отрицательных чисел, кратных пяти.

Program mod; uses crt; var x,i,a:integer;begintextcolor(11);writeln('Введите любое число кратное 5: ');readln(a);for x:=1 to a doif (x mod 5 = 0) theni:=i+x;writeln(i);end.