по информатике!!!!язык программирования C++

ответ ответ го те я нужно

// pascalabc.net 3.0, сборка 1076 const   n=20; { количество дат } type   tdate=record       d: 1..31;       m: 1..12;       y: word   end; var   dates: array[1..n] of tdate;   i: byte;   s,st: string;   begin   randomize;   for i: =1 to n do begin       s: ='';       with dates[i] do begin           d: =random(27)+1;           str(d,st);           if length(st)=1 then st: ='0'+st;           s: =s+st+'.';           m: =random(12)+1;           str(m,st);           if length(st)=1 then st: ='0'+st;           s: =s+st+'.';           y: =random(51)+1960;           str(y,st);           s: =s+st;           if m in [3..5] then s: =s+' - весенняя';           writeln(s)       end   end end. тестовое решение: 22.12.1979 21.10.1975 25.03.1980 - весенняя 23.04.1967 - весенняя 09.10.1967 16.05.1965 - весенняя 09.08.1996 05.10.2001 10.11.1985 18.08.1970 08.10.1983 01.12.2005 01.01.1994 09.11.1962 14.09.1979 24.03.2008 - весенняя 14.01.2003 22.04.1990 - весенняя 18.08.1969 16.05.2009 - весенняя