Дуня от слова Дуть! Необходима помощь!

[Дуня]

Все привет! Вот такая задачка!!!

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

[zetrix]

На каком языке Pascal или delphi?

[Дуня]

Pascal, к сожалению....=)

[zetrix]

Думаю вопросов не должно возникнуть.

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.

[Дуня]

zetrix, спасибо....=)