a64.pas

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

var n,s:integer;
function aparitii(x,c:integer):integer;
var p:integer;
begin
p:=0;
while x<>0 do begin
              if x mod 10 =c then inc(p);
              x:=x div 10;
              end;
aparitii:= p;
end;
begin
write('s=');readln(s);
write('n=');readln(n);
repeat
if n<>0 then writeln(aparitii(n,s));
write('n=');readln(n);
until n=0;
readln;
end.