Кто поможет решить задачу в турбо паскале?
С помощью цикла с предусловием, подсчитать сумму и произведение кратных 5 на интервале от К до Л ?
program zad;
uses crt;
var a,K,L:integer; s,p:longint;
begin
clrscr;
writeln('vvedite granici K,L');
readln(K,L);
s:=0; p:=1;
a:=(L div 5)*5;
while a>=K do
s:=s+a;
p:=p*a;
a:=a-5;
end;
writeln('s=',s);
writeln('p=',p);
readln;
end.