Что появится на экране после выполнения программы? program pr1; uses crt; var a, b: byte; begin a: =1; b: =a*a; a: =a+1; b: =a*a; writeln(‘a=’, a, ’ b=’, b); end.

В таком виде - будет ошибка. А если кавычки исправить на нормальные, будет строка
a=2 b=4

A равно 2, b равно 4

uses crt;

type

massiv = array [1..100] of integer; // объявляем свой тип данных

var

mass : massiv ;

sum, proiz , i , n: integer;

begin

clrscr;

write('Введите длину массива : '); readln(n);

sum := 0 ;

proiz := 1 ; // единица потому что у нас умножение, если умножать на 0 будет 0 всегда!!

for i:=1 to n do

begin

write('Введите ', i , ' элемент : '); readln(mass[i]);

if (mass[i] mod 2 = 0) then sum := sum + mass[i]

else proiz := proiz * mass[i];

end;

writeln('Сумма четных равна ', sum);

writeln('Произведение нечетных равно ', proiz);

readln; // чтобы программа не закрывалась

end.

А-Я (33 символа), символы русского алфавита
2) 36 согласных звуков: [б], [б'], [в], [в'], [г], [г'], [д], [д'], [ж], [з], [з'], [й'], [к], [к'], [л], [л'], [м], [м'], [н], [н'], [п], [п'], [р], [р'], [с], [с'], [т], [т'], [ф], [ф'], [х], [х'], [ц], [ч'], [ш], [щ'] 
6 гласных звуков: [а], [у], [о], [ы], [и], [э], звуковые фонемы русского языка
3) A-Z (26 символов), символы латинского алфавита
4) 0123456789, символы арабской записи цифр
5) аденин (А), гуанин (G), цитозин (С), тимин 
(T), азотистые основания участвующие в формировании дизоксирибонуклеиновой кислоты
6) 01, сигнал низкого и высокого напряжения используемый для передачи данных