Ответ:

pascal

Объяснение:

a)

var x: integer;

begin

 Write('Введите двузначное число: '); ReadLn(x);

 if (x div 10 = 3) or (x mod 10 = 3) then

      WriteLn('3 входит') else WriteLn('3 не входит');

end.

б)

var x, a: integer;

begin

 Write('Введите двузначное число: '); ReadLn(x);

 Write('Введите число a: '); ReadLn(a);

 if (x div 10 = a) or (x mod 10 = a) then

      WriteLn(a, ' входит') else WriteLn(a, ' не входит');

end.