Составьте программу, определяющую, является ли данное ...

Motes

var s: string; i: integer; q: boolean;begin readln(s); for i := 1 to length(s) do if(s[i] = '?') then q := true; if(q) then writeln('Вопросительное') else writeln('Не вопросительное');end.