Из первой заданной строки удаляется каждый символ, принадлежащий второй строке.

program test;
var a:1..9;
s1,s2,s3:string;c,d:integer;
begin
readln(s1);
readln(s2);
readln(s3);
val(s1,c,d);
if d=0 then
if c mod 9 =0 then
writeln('stroka 1 podhodit') else writeln('stroka 1 ne podhodit')
else writeln('stroka 1 ne chislo');
val(s2,c,d);
if d=0 then
if c mod 9 =0 then
writeln('stroka 2 podhodit') else writeln('stroka 2 ne podhodit')
else writeln('stroka 2 ne chislo');
val(s3,c,d);
if d=0 then
if c mod 9 =0 then
writeln('stroka 3 podhodit') else writeln('stroka 3 ne podhodit')
else writeln('stroka 3 ne chislo');
readln;
end.

uses crt;
var
s1,s2,s3:integer;
begin clrscr;
write('s1='); read(s1);
write('s2='); read(s2);
write('s3='); read(s3);
writeln;
if s1 mod 9=0 then writeln(s1,'-des.zapis chisla, kratnogo 9')
else writeln(s1,'- net');
if s2 mod 9=0 then writeln(s2,'-des.zapis chisla, kratnogo 9')
else writeln(s2,'- net');
if s3 mod 9=0 then writeln(s3,'-des.zapis chisla, kratnogo 9')
else writeln(s3,'- net');
readkey;
end.

var
a:array[1..3]of string;
b:longint;
i,c,f:integer;
begin
for i:=1 to 3 do
begin
writeln('vvedite ',i,' stroku');
readln(a[i]);
end;
writeln('otvet');
for i:=1 to 3 do
begin
val(a[i],b,c);
if c=0 then
  if b mod 9 =0 then
begin
writeln('stroka ',a[i]);
f:=1;
end;
end;
if f=0 then writeln('takih strok net');
readln;
end.

var
a,b:string;
i,j:integer;
begin
writeln('vvedite 1 stroku');
readln(a);
writeln('vvedite 2 stroku');
readln(b);
for i:=length(a) downto 1 do
for j:=1 to length(b) do
if a[i]=b[j] then delete(a,i,1);
writeln('novaya stroka= ',a);
readln;
end.