Записи.Данные о сотрудниках

@newstat · Регистрация: 13.03.2012

Author24 — интернет-сервис помощи студентам

Прошу помочь мне доработать программу.
С клавиатуры вводятся поочередно данные о сотрудниках фирмы: фамилия,год рождения,должность, оклад. Текст программы:

Pascal

Program newstat;
uses crt;
Type sotr=Record
fam:String[12];
god:Byte;
dolzh:String[15];
okl:Integer;
End;
var sot:Array[1..5] of sotr;
i:Byte; 
Begin
clrscr;
for i:=1 to 2 do Begin
writeln('Введите запрашиваемые данные о сотрудниках ООО  "TRaяK" работающих по трудовому договору');
writeln(i,'.1 Введите фамилию сотрудника "TRaяК"');readln(sot[i].fam);
writeln(i,'.2 ',sot[i].fam,' родился в  ____ году:');readln(sot[i].god);
writeln(i,'.3 ',sot[i].fam,' занимает должность:');readln(sot[i].dolzh);
writeln(i,'.4 Введите оклад в рублях РФ'); readln(sot[i].okl);
end;
for i:=1 to 3  do if sot[i].okl>10000 then
writeln('Оклад более 10000 рублей имеет - ',sot[i].fam,', а именно ',sot[i].okl,' рублей РФ');
 
readln;
 
end.

Хотел добавить sot[i].vznos:integer;{Страховой взнос в Пенсионный Фонд РФ за период работы}
s:=36/100{Процент направляемый как страховой взнос}
sot[i].stazh:integer;{Срок работы ____ месяцев на должности sot[i].dolzh}
И сосчитать сколько было уплачено в ПФ РФ за период sot[i].stazh.
Вот только не выходит , а пытался я сделать следующее: sot[i].vznos:=sot[i]stazh*sot[i].okl*s

Help ME PLEASE!!!! Очень хочется доделать программу и разобраться в ней.

	30.03.2012, 02:35