Модуль 3, задание 6

Program lab6;название программы

const n = 50; тип данных
var ввод данных
i:byte; тип данных
B:array[1..n] of word; ввод даных
procedure proc(A:array of word); {процедура нахождения русских букв}
begin начался раздел действий
for i:=1 to n do присваивание
if((129 <= A[i]) and (A[i] <= 160)) or {проверка цифры на вхождение}
((161 <= A[i]) and (A[i] <=175)) or {русского кода}
((225 <= A[i]) and (A[i] <= 242)) then условие
Writeln('index = ',i+1,'; bukva - ''',char(A[i]),'''',' A[i] = ',A[i]); условие
end; конец

Begin начался раздел действий
writeln; ввод значений переменной
for i:=1 to n do {цикл заполнения}
B[i] := random(300); операция присваивания
for i:=1 to n do Begin {цикл вывода}
write(' ',i,' = ',B[i]); ввод значений переменных
if (i mod 5 = 0) then writeln; условие
end; конец
writeln;
writeln;
proc(B); {вызов процедуры}
readln;

end. конец