задано трехзначное положительное целое число. Есть ли среди его цифр 3?Если есть,на каком месте стоит? написать программу на языке паскаль

Но возвращает только первое попавшееся 3. Или нужно показать все позиции троек?

все позиции нужно

//Pascal ABC.NET Версия 2.2 Сборка 790var a,i:integer;s:string;begin;readln(a);str(a,s);if length(s)<>3 then exit;if pos('3',s)=0 thenbegin;writeln('Nowhere');exit;end;for i:=1 to length(s) doif s[i]='3' then writeln(i);end.Пример ввода:123Пример вывода:3