как написать программу для сложения 5 чисел в Паскале?

var a,x:integer;i,s:integer;beginwriteln('введите целое число');readln( a );x:=a;s:=0;while ( x<>0 ) do begins := s + (x mod 10);x := x div 10;end;writeln( 'Сумма цифр числа ',a,' = ', s );end.