Program Zamena;
Uses Crt;
var c:char;
begin
clrscr;
write('Введите символ: ');
readln(c);
case c of
'A','a', 'E','e', 'I','i' 'O','o' 'U','u',' Y','y': writeln('!');
'B','b',C,'c','D','d','F','f','G','g','H','h','J','j',K,'k','L','l','M','m', 'N','n' 'P','p','Q','q','R','r','S','s' ,'T','t','V','v','W','w' ,'X','x', 'Z','z': writeln('?');
'0'..'9': writeln(':');
else writeln('*');
end;
readkey;
end.
Program Zamena;
Uses Crt;
var c:char;
begin
clrscr;
write('Введите символ: ');
readln(c);
case c of
'A','a', 'E','e', 'I','i' 'O','o' 'U','u',' Y','y': writeln('!');
'B','b',C,'c','D','d','F','f','G','g','H','h','J','j',K,'k','L','l','M','m', 'N','n' 'P','p','Q','q','R','r','S','s' ,'T','t','V','v','W','w' ,'X','x', 'Z','z': writeln('?');
'0'..'9': writeln(':');
else writeln('*');
end;
readkey;
end.