С клавиатуры вводятся две даты. выдать сообщения "правильно",если первая введённая дата...

Question

С клавиатуры вводятся две даты. выдать сообщения "правильно",если первая введённая дата предшествует второй, и "неправильно", если наоборот.

Answer 1

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
правильно

Comments

как выполнение запустить

---

В любой версии паскаля.

---

да