PASCAL ABC Символьный тип данных.
Вывести на экран все латинские буквы, коды которых чётные и кратны 5

Var C:char;BeginFor C:='a' to 'z' do if Ord(C) mod 10 = 0 then WriteLn(C);For C:='A' to 'Z' do if Ord(C) mod 10 = 0 then WriteLn(C)End.