Var d1,m1,y1,d2,m2,y2: integer; begin write('1-я дата: '); readln(d1,m1,y1); write('2-я дата: '); readln(d2,m2,y2); if (y1 then writeln('правильно') else writeln('неправильно'); end. подскажите где ошибка

бэтти56781    3   25.08.2019 17:40    0