rostr10.pas

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

var a:array[1..100] of char;
    c:string;
    n,i:integer;
begin
write('c=');readln(c);
write('n=');readln(n);
for i:= 1 to n do
               begin
               write('a[',i,']=');
               readln(a[i]);
               end;
for i :=1 to n do
               if pos(a[i],c)<>0 then write(a[i]);
readln;
end.