eğer m ve n functiona dışarıdan geliyorsa
function hesapla(m,n:integer)
begin
top:integer;
i:interer;
top:=0;
if m<n then begin
for i:=m to n do begin
top:=top+i*i;
end;
return(top);
end;
else
return(0);
end.
yukarıdaki functionu inceleyin kodu programda kontrol etmeden yazdım
asıl kod ise
begin
sonuc:real;
sonuc:=(hesapla(2,10)*hesapla(5,8))/hesapla(15,18);
end
yazdırma komutuyla sonucu yazdırın
kod kısımları eksik olabilir herhalde mantık yukarıdaki gibidir