Дано натуральное число n.s1,s2..sn.Вычислить есть ли среди данных символов точка и тире...

Question

Дано натуральное число n.s1,s2..sn.Вычислить есть ли среди данных символов точка и тире
Нужно написать программу, помогите пожалуйста))

Answer 1

//PascalABC.Net 3.2
begin
var s:=readstring('Введите строку: ');
write ('Наличие точки: ', '.' in s, '; наличие тире: ', '-' in s);
end.