cfr_de_c.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

program cifra_de_control;
{calculati cifra de control a unui nr.}
var n,s,i,k,p,m:integer;
begin
write('n= ');
readln(n);
s:=0;
for i:=0 to n do
k:=n div 10;
i:=(n mod 10)+(k mod 10);
s:=s+i;
if s>10 then m:=(s div 10)+(s mod 10)
        else m:=s;
if n>99 then m:=m+(n div 100);
if m>10 then m:=(m div 10)+(m mod 10);
writeln('cifra de control a numarului ',n,' este ',m);
end.