Напишите программу, которая считывает с клавиатуры последовательность символов и выводит на экран: а)количество считанных букв б)количество прописных букв в)количество строчных букв. прошу,, ) (желательно все варианты в одной программе) буду и готов с ,,румынским, и

не одновременно, а сначала alt и только потом 3 (на цифровой клавиатуре - справа)

var ch,n,i: longint;

ch1,s: string;

begin

  read(s,ch);

  n: =length(s);

  writeln(n,' ',ch);

  str(ch,ch1);

  for i: =1 to n do if s[i]=ch1 then write(i,' ');

end.

а столбчатая диаграмма

б график 

в ярусная диаграмма

г областная диаграмма

дкруговая диаграмма

var

i,s: integer;

begin

s: =0;

for i: =20 to 60 do

if i mod 5 =0 then s: =s+i;

writeln(s);

end.