korsar12

Verified answer

Var n: Word;
begin
write('Введите число ');
readln(n);
write((n mod 10 = 3) or (n div 10 mod 10 = 3) or (n div 100 = 3));
readln;
end.