Дана строка. преобразовать в ней все прописные латинские буквы в строчные.(pascal)

Var a: string; i: integer; begin read(a); for i: =1 to length(a) do begin fif a[i] in ['a'..'z'] then a[i]: =upcase(a[i]) end; writeln(a); end.

с2н6+cl2=c2h5сl+hcl

с2н6-этан

с2н5cl- хлорэтан или хлористый этил

Надо посчитать количество символов в сообщении: 3 * 25 * 60 = 4500;   сообщение занимает 1125 байт, посчитаем, сколько байт занимает каждый символ: 1125 / 4500 = 0.25;   т.к. символ занимает 0.25 байт, одним байтом можно закодировать 4 символа. байт состоит из 8 бит.  8 / 4 = 2 (количество битов чтобы закодировать каждый символ)  двумя битами можно закодировать 4 символа, значит в алфавите может быть до четырех символов