составить программу вычисления суммы цифр 5-значного числа вводимого с клавиатуры где N вводиться с клавиатуры

uses crt;var s,i,x : integer;beginRead(x);For i:=1 to 5 do begin                   s:=s + (x mod 10);                   x:=x div 10;                 end;Write (s);end.Язык - ПаскальABCЕсли хочешь можешь еще сделать проверку на пятизначное число.