С клавиатуры вводится две латинские буквы(неизвестно, больших или малых) Выведете на экран стоит ли в алфавите первая буква перед второй. pascal abc

var  c1,c2:char;begin  Write('Введите две латинские буквы подряд без пробелов: ');  Readln(c1,c2);  c1:=UpCase(c1); c2:=Upcase(c2);  if c1<c2 then Writeln('Первая буква следует в алфавите перед второй')  else    if c1=c2 then Writeln('Это одна и та же буква')    else Writeln('Первая буква следует в алфавите после второй')end.Тестовое решение:Введите две латинские буквы подряд без пробелов: QpПервая буква следует в алфавите после второй