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.

подскажите где ошибка

Правильный ответ на вопрос 👍 «Var d1, m1, y1, d2, m2, y2:integer; begin write ('1-я дата: ') ; readln (d1, m1, y1) ; write ('2-я дата: ') ; readln (d2, m2, y2) ; if (y1 ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!