//Формулировка хромает на обе ноги
//Pascal ABC.NET v3.1 сборка 1172
Type
re=record
date:string;
year:string;
sch:string;
end;
Var
s:re;
begin
write('Введите дату рождения:');readln(s.date);
write('Введите год:');readln(s.year);
write('Введите номер школы:');readln(s.sch);
write(s.date,' ',s.year,' ',s.sch);
end.
Пример ввода:
Введите дату рождения:01.02
Введите год:1998
Введите номер школы:56
Пример вывода:
01.02 1998 56