Решить.

условия :

в автоматизированной информационной системе содержатся анкетные данные сотрудников учреждения.

в массиве v(8) содержаться года рождения сотрудников,

в массиве p(8) - сведения о поле,

в массиве s(8) - сведения о семейном положении.

элемент массива v с номером n- год рождения сотрудника n,

элемент массива p с номером n - сведения о поле сотрудника n,

элемент s с номером n - сведения о семейном положении сотрудника n

p(n) = 0, сотрудник n женского пола

p(n) = 1, сотрудник n мужского пола

s(n) = 0, сотрудник n холост(не замужем)

s(n) = 1, сотрудник n женат (замужем)

определить: процентное соотношение k = количество мужчин в возрасте до 60 лет / общее количество мужчин * 100

Паскаль не чувствителен к регистру, это значит, что переменные myvariable и MyVariable - эквивалентны. Однако для лучшей читабельности кода, необходимо использовать Camel Case и Pascal Case нотации.

PascalCase - это стиль написания имен, при котором составные слова названия идентификатора пишутся слитно, и каждое новое слово начинается с большой буквы. Пример: MyVar, MyBestProgramm, WorkArray.

Паскаль нотация используется для названий классов, публичных полей данных и констант, а также именования процедур и функций.

CamelCase (верблюжья нотация) - этот стиль повторяет правило для предыдущей нотации, только начинается с маленькой буквы. Пример: firstElement, myField, btnRun.

Нотация используется для локальных переменных и констант.

program raf105;

var fioa2:array[1..20] of string;

fioa1:string;

m1,g1,m2,g2,i,o:integer;

begin

write('Введите сегодняшнюю дату (месяц, год) через пробел: ');

readln(m1,g1);

g1:= g1*12;

m1:= m1+g1;

writeln;

for i:=1 to 20 do

begin

 write(i,'. Введите фамилию, имя, отчество и адрес сотрудника: ');

 readln(fioa1);

 write('   Дата поступления (месяц, год): ');

 readln(m2,g2);

 writeln;

 g2:= g2*12;

 m2:= m2+g2;

 if m1-m2>=36

   then begin

   o:= o+1;

   fioa2[o]:= fioa1;

   end;

end;

writeln('Сотрудники которые проработали не менее трёх лет:');

for i:=1 to o do

writeln(i,'. ',fioa2[i]);

end.

Язык программирования PascalABC