Найти сумму цифр от 300 до 500. это надо сделать в программе паскаль. напишите .

ответ выкладываю файлом

Var sot,des,ed,k,summa :integer;
begin
for k:=300 to 500 do
begin
sot:=k div 100;
des:=k mod 100;
des:=des div 10;
ed:=k mod 10;
summa:=summa+(sot+des+ed);
end;
writeln(summa);
end.