С клавиатуры вводятся две даты. выдать сообщения "правильно",если первая введённая дата предшествует второй, и "неправильно", если наоборот.
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. Пример: 1-я дата: 12 2 2017 2-я дата: 4 3 2017 правильно
как выполнение запустить
В любой версии паскаля.
да