Program zap_16;
Uses Crt;
Const n=10;
Type sotrud = record
Fio,dol,dat1:string[20];
zar:real;
end;
Var a : array[1..n] of sotrud;
i :byte;
BEGIN
ClrScr;
for i:=1 to n do
with a[I] do
begin
Writeln('Введите ФИО');
Readln(fio);
Writeln(' Введите должность');
Readln(dol);
Writeln(' Введите дату рождения');
Readln(dat1);
Writeln(' Введите зарплату');
Readln(zar);
End;
Writeln('Ведомость выдачи заработной платы');
for i:=1 to n do
with a[I] do
writeln (fio,' ',dol,' ',dat1,' ',zar:4:2);
Readln;
end.