program vek; uses crt; const TentoRok=2013; var Rok, TvojVek:integer; begin writeln('Zadaj rok tvojho narodenia:'); readln(Rok); TvojVek:=TentoRok-Rok; writeln('Tohto roku mas ',TvojVek,' rokov.'); readln; end.