program Project33;


uses
SysUtils;

var
a : integer;
b : integer;
c : integer;
d : integer;
e : integer;
f : integer;
i : integer;
t8 : integer;
t17 : integer;
tt: integer;
begin
write('baslangic degeri girin: '); readln(a);
write('bitis degeri girin: '); readln(b);
write('bolunecek ilk degeri girin: '); readln(c);
write('bolumden kalacak degeri girin: '); readln(d);
write('ikinci bolunecek degeri girin: '); readln(e);
write('bolumden kalacak degeri girin: '); readln(f);
t8:=0;
t17:=0;

for i:=a to b do
begin
if (i mod cd) then
begin
t8:=t8+i;
end;
if (i mod ef) then
begin
t17:=t17+i;
end;


end;
tt:=abs(t8-t17);
writeln(tt);
readln;
end.



yaptıgımız program bu ama , otomatik olarak buyuk sayıyı bulup o sayıdan kucuk olan sayıyı cıakrmasını istiyoruz, yardımcı olurmusunuz?

şimdiden tşk ederim
__________________