таблица в паскале

Ответ от Георгий Зотиков[гуру]
д
program p1;
uses crt;
type zp=record
fio:string[30];
d:string[10];
pol:char;
m:array[1..3] of integer;
end;
var
i,j,n:integer;
a:array[1..100] of zp;
begin
write('vvesti chislo uchenikov -->');
readln(n);
for i:=1 to n do begin
writeln('vvedite fio');
read(a[i].fio);
writeln('vvedite d');
read(a[i].d);
writeln('vvedite pol');
read(a[i].pol);
writeln('vvedite m');
for j:=1 to 3 do
readln(a[i].m[j])
end;
writeln('spisok');
for i:=1 to n do begin
write(i:4);
write(a[i].fio:30);
write(a[i].d:4,' ');
write(a[i].pol:2,' ');
for j:=1 to 3 do
write(a[i].m[j],',');
writeln;
end;
end.