Запросить начало и конец отрезка и посчитать суму и количество числе, кратных 5 и количество чисел, которые не удовлетворяют этому условию. , (начинается вот так: screen 12 input "введите число"; и т.д.

uses crt;
var sum,count,count1,nachalo,konec:integer;
begin
sum:=0;
count : = 0;
count1:= 0;
nachalo:=-10;
konec:=10;
for i:=nachalo to konec do
begin
if i mod 5 = 0 then
begin
inc(count);
sum:=sum+i;
end
else
inc(count1);
end;
writeln('kolichestrvo chisel kratnyh 5 = ',count);
writeln('ih suma = ',sum);
writeln('kolichestrvo chisel ne kratnyh 5 = ',count1);
readln;
end.