Program zap_14;
Uses Crt;
Const n=10;
Type grafik = record
Fio,dat1,dat2:string[20];
kol:integer;
end;
Var a : array[1..n] of grafik;
i :byte;
BEGIN
ClrScr;
for i:=1 to n do
with a[I] do
begin
Writeln('Введите фамилию, имя, отчество ');
Readln(fio);
Writeln(' Введите дату начала отпуска');
Readln(dat1);
Writeln(' Введите дату окончания отпуска');
Readln(dat2);
Writeln(' Введите количество');
Readln(kol);
End;
Writeln('График отпусков');
for i:=1 to n do
with a[I] do
writeln (fio,' ',dat1,' ',dat2,' ',kol);
Readln;
end.