Răspuns:
program vocalaDANU;
var c:char;
begin
Write('caracter='); Read(c);
case c of
'a','e','i','o','u': writeln('vocala mica');
'A','E','I','O','U': writeln('vocala mare');
else writeln('consoana');
end;
end.
Explicație:
aici e o alta varianta, in caz ca nu cunosti tipul set
