Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+94
program Calc;
uses CRT;
const Year = 2009;
var BY, Age: Integer;
begin
ClrScr;
Write ('Год вашего рождения');
ReadLn(BY);
if BY < Year then
begin
Age :=BY-Year;
WriteLn('Ваш возраст: ', Age);
end else WriteLn('Ошибка ввода!');
ReadLn;
end;Фигово, когда у человека нету логики....
Запостил: 
toxicDuck,
20 Апреля 2011
Follow us!
const Year = 1989;