cifre.pas

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

program cifre;
var n,q,s,i,p,k:longint;
begin
writeln ('introduceti numarul !');
read (q);
s:=0;
i:=0;
p:=0;
k:=0;
n:=q;
repeat
      k:=n mod 10;
      if (k mod 2=0) then p:=p+1
                     else i:=i+1;
      s:=s+k;
      n:=n div 10;
until n=0;
if (s mod 3=0) then writeln (' numarul ',q,' este divizibil cu 3')
               else writeln (' numarul ',q,' nu este divizibil cu 3');
writeln ('numarul ',q,'are ',p,' cifre pare si ',i,' cifre impare');
end.