Составте программу вычисляющего сумму 4х значного числа Просьба оформить по всем правилам

program sumator; {На самом деле, эта программа способна вычислять сумму цифр любого числа, а не только 4-х значного}  uses crt;  var c:integer;  ed,des,sot,tis,sum:real;  begin  clrscr;  repeat  writeln ('Введите число');  readln (c);  ed:=c div 10;  ed:=c - ed*10;  des:=c div 100;  des:=(c - des*100 - ed)/10;  sot:=c div 1000;  sot:=(c-sot*1000 - (des*10+ed))/100;  tis:=(c-(sot*100+des*10+ed))/1000;  sum:=ed+des+sot+tis;  writeln ('Сумма цифр = ',sum:2:0);  until c=0;  end.