Описать запись с именем Student, содержащую следующие поля: ФИО (Вася Иванов); Номер группы(2-PO-3), Дата рождения (запись из трех полей: день, месяц, год); Адрес (запись из трех полей); Успеваемость (запись из трех предметов: ОАиП, ОСиС, ИТ). В программе записать данные в переменную-запись. Вывести информацию на экран — Pascal(Паскаль)

uses crt;
type TData = record
              day, month:byte;
              year:integer;
              end;
 
     TAdress = record
                street, house, flat:string[20];
               end;
 
     TIq = record
            OAIP, OSIS, IT: byte;
           end;
 
     student = record
                Fio:string;
                Group:string[10];
                Data:TData;
                Adress:TAdress;
                Iq:TIq;
               end;
 
var S:student;
begin
clrscr;
s.fio:='Вася Иванов';
s.Group:='2-PO-3';
s.data.day:=4;
s.data.month:=12;
s.data.year:=2006;
s.adress.street:='Гоголя';
s.adress.house:='1';
s.adress.flat:='3';
s.iq.OAIP:=2;
s.iq.OSIS:=2;
s.iq.IT:=2;
 
Writeln('Фамилия Имя Отчество: ',s.fio);
Writeln('Группа: ',s.Group);
Writeln('Дата: ',s.data.day,' ',s.data.month,' ',s.data.year);
Writeln('Адресс: улица ',s.adress.street,', дом ',s.adress.house,', квартира ',s.adress.flat);
Writeln('Успеваемость: ');
Writeln('  ОАиП - ',s.iq.OAIP);
Writeln('  ОСиС - ',s.iq.OSIS);
Writeln('  ИТ - ',s.iq.IT);
readln;
end.