Проблем быть не должно, думаю, это самое примитивное. Program asd; Var x: integer; Begin read(x); if x<2017 then Write(' — ',x,' год уже if x=2017 then Write(' — ',' Сейчас — ',x,'.') else if x>2017 then Write(' — ',x,' Еще не настал.') end.
Надеюсь Буду благодарен, если выберешь "Лучший" Удачи!
var year: integer;
begin
readLn(year);
if year < 2017 then
else if year = 2017 then
Write(year, ' настоящее')
else if year > 2017 then
Write(year, ' будущее')
end.
Program asd;
Var x: integer;
Begin
read(x);
if x<2017 then Write(' — ',x,' год уже
if x=2017 then Write(' — ',' Сейчас — ',x,'.') else
if x>2017 then Write(' — ',x,' Еще не настал.')
end.
Надеюсь
Буду благодарен, если выберешь "Лучший"
Удачи!