Ввести двухзначное число.
Определить входит ли в него цифра 3

var n,k,i:integer;

begin

 writeln('Введите двузначное число');

 readln(n);

 for i:=1 to 2 do begin;

 if n mod 10 = 3 then k:=k+1;

 end;

if k>0 then writeln('В это число входит цифра 3');

if k=0 then writeln('В это число не входит цифра 3');

end.