PascalABC
Объяснение:
program vozrast;
var
name: string;
year, age: integer;
d: datetime;
begin
Write('Введите имя: ');
ReadLn(name);
Write('Введите год рождения: ');
ReadLn(year);
d := DateTime.Now;
age := d.Year - year;
WriteLn(name,', тебе ', age, ' лет.');
end.
