program drugi;

uses Crt, Graph, Dateutils, sysutils;

var GraphicsDriver, GraphicsMode:smallint;
 dzisiajdzien, dzisiajmiesiac, dzisiajrok:Word;
 dzien, miesiac, rok:Word;
 imie, nazwisko:string;
 birthday, temp:TDateTime;

procedure OpenGraphics;
Begin
Writeln('');
GraphicsDriver := Detect;
InitGraph(GraphicsDriver, GraphicsMode, '');
end;

procedure CloseGraphics;
begin
CloseGraph;
Writeln('');
End;

procedure Wait;
begin
OutText('sto lat z okazji urodzin');
end;

BEGIN

Writeln('podaj imie');
Readln(imie);
Writeln('podaj nazwisko');
Readln(nazwisko);
Writeln('podaj wiek - dzien');
Readln(dzien);
Writeln('podaj wiek - miesiac');
Readln(miesiac);
Writeln('podaj wiek - rok');
Readln(rok);

birthday := EncodeDate(rok,miesiac,dzien);
DecodeDate(Today,dzisiajrok,dzisiajmiesiac,dzisiajdzien);

if (dzisiajdzien = dzien) And (dzisiajmiesiac = miesiac)
then
begin
OpenGraphics;
Wait;
Readln;
CloseGraphics;
end
else
begin

temp := EncodeDate(dzisiajrok,miesiac,dzien);
Writeln('Czesc ',imie,' ',nazwisko,' od dzisiaj do dnia urodzin jest dni: ',Daysbetween(Today,temp));
end;
readln;
end.