Составте программу вычисляющего сумму 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.