Write a program that lets you know if you can have a key or not, based on your role at the school.
 First ask for the user’s role at the school. They can be a student, administrator, or a teacher. (And remember that capitalization is important! ‘Student’ is not the same as ‘student’.)
 Example 1: Administrator or Teacher
 For example, if this was the input:
 Are you an administrator, teacher, or student?: teacher
 This should be the output:
 Administrators and teachers get keys!
 Example 2: Student
 And if this was the input:
 Are you an administrator, teacher, or student?: student
 This should be the output:
 Students do not get keys!
 (Note: You should also be able to handle a situation where the user enters a value other than administrator, teacher or student and tell them they must be one of the three choices!)
 Example 3: Other
 If they input anything else:
 Are you an administrator, teacher, or student?: secretary
 This should be the output:
 You can only be an administrator, teacher, or student!
   
Ответ:
program z1;
Const M = 10;
Var C : Array [0.M] of Integer;
B : Array [0.M] of Boolean;
i:integer;
begin
write (‘Массив С: ‘);
for i:= 1 to M do
begin
C[i]:=random (19)-9;
write(C[i]:7)
end;
writeln;
write (‘Массив B: ‘);
for i:= 1 to M do
begin
B[i]:=C[i]>0;
write(B[i]:7)
end
end.
Объяснение:
C[i] — не отрицательное число, т.е. положительное
B[i]:=C[i]>0;
В зависимости от этого и присваивается значение массиву В.