Дано четырехзначное целое число. Определить имеется ли в записи числа цифра 3 паскаль

Если уж со строками делать, то лучше воспользоваться штатной функцией POS

Var  s:string; i,c:integer;Begin  Write('Введите четырёхзначное число ');  Readln(s);  if length(s) = 4 then Begin  for i:= 1 to 4 do     if s[i]='3' then c:=1;  if c=1 then write('Тройка есть') else write('Троек нет');  End else write('Повторите ввод числа');End.

Var n : Integer; f : Boolean;Begin  Write('Введите четырёхзначное число ');  Readln(n);  f:=False;  While (n>0) do  Begin   f:=f or ((n mod 10)=3);   n:=n div 10;  end;  if f then writeln('Тройка есть') else writeln('Троек нет');End.