program primer1;

type anketa=record
   fio: string[45];
   dat_r: string[8];
   adres: string[50];
   cl: string[5];
   gr: string[3]
end;

var pupil: anketa;
begin
   writeln (‘введите сведения об ученике’);
   {обратите внимание, ввод каждого поля осуществляется отдельно}
   writeln (‘введите фамилию, имя и отчество’);
   readln (pupil.fio);
   writeln (‘введите дату рождения’);
   readln (pupil.dat_r);
   writeln (‘введите адрес’);
   readln(pupil.adres);
   writeln (‘введите класс’);
   readln(pupil.cl);
   writeln (‘введите группу’);
   readln (pupil.gr);
   writeln (‘ввод закончен’);
   writeln ;
   {обратите внимание, что вывод записи осуществляется по полям}
   writeln (‘фамилия ученика: ’, pupil.fio );
   writeln(‘ дата рождения : ’, pupil.dat_r);
   writeln(‘ адрес : ’, pupil.adres);
   writeln(‘ класс : ’, pupil.cl);
   writeln(‘ группа : ’, pupil.gr);
end.