Question

вывести на экран номера букв которые являются согласными.

Answer 1

program gt;
var a:string;
l,i:integer;
begin
readln(A);
for i:=1 to l do
begin
if(a[i]<>'A')and(a[i]<>'Е')and(a[i]<>'Ё')and(a[i]<>'И')and
(a[i]<>'О')and(a[i]<>'У')and(a[i]<>'Ы')and(a[i]<>'Э')and(a[i]<>'Ю')and
(a[i]<>'Я')then writeln(i);
end;
end.