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

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

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

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  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.