Это первый класс
uses crt;
var a,b,sum,pro:integer;
begin
readln(a,b);
for a to b do if a mod 3 =0 then sum:=sum+a;
for a to b do if a mod 3 =0 then pro:=pro+a;
write (summa='sum','proizvedenie='pro);
end.
1) 18 21 19 13 1 15
2) 5 11 31 9 11 28 1
3) дйэзйъа
Чаще всего встречается буква "й", её номер - 11