Вывести строчные английские буквы в столбик подряд,с указанием их десятичных кодов и...

Question

Вывести строчные английские буквы в столбик подряд,с указанием их десятичных кодов и прописных значений. Напишите три варианта программы с использованием разных типов циклов. Используйте функции для работы с порядковыми и символьным типами данных.
P.S. Pascal

Answer 1

1)
Var i : Byte;
Begin
  For i:=Ord('a') to Ord('z') do Writeln(Chr(i),' ',i);
end.

2)
Var i : Byte;
Begin
  i:=Ord('a');
  While i<=Ord('z') do<br>  Begin
    Writeln(Chr(i),' ',i);
    Inc(i);
  end;
end.

3)
Var i : Byte;
Begin
  i:=Ord('a');
  Repeat
    Writeln(Chr(i),' ',i);
    Inc(i);
  Until i>Ord('z');
end.

Comments

Программа должна быть единой а так же должны выводиться прописные значения буквю

---

Не соглашусь. Читаем условия: "Напишите три варианта программы" т.е. программ должно быть 3, а не одна "единая". И опять же в условии указано "строчные буквы", а не прописные.