Иероглифы - не буквы, а слоги и целые слова. В словах, естественно были и гласные, и согласные
Program q;
var a, b, max:integer;
begin
write('VVedite 2 chisla');
read(a,b);
max:=a;
if a<b then
max:=b
else
max:=a;
writeln(max);
end.
Procedure print();
var i,j: char;
begin
for i := 'A' to 'Z' do
for j := 'A' to i do
write(j)
end;
begin
print()
end.