program namwe;
uses crt;
const by=2011;
var name:string;
age,oldyear:integer;
begin
clrscr;
write('What are you name?');
realdn(name);
write('How old are you?');
readln(age);
if by < age then
begin
oldyear:=by-age;
writeln('Okay,you were burn in',oldyear);
readln;
end.
опять таки странно выбивает на моменте,после того,как я ввожу имя, возраст выбивает)чо делать?)

readln(name);

end;