uses crt,graph,dos;
var s1,s2:string;
    t:text;
    y,m,d,dw:word;
    h,min,s,setna:word;
    i,karta,tryb:integer;
procedure data;
 begin
   repeat
    clrscr;
    i:=i+1;
    getdate(y,m,d,dw);
    gettime(h,min,s,setna);
    write('rok ',y,', miesiac ',m,', dzien ',d,', ');
    writeln('godzina ',h,', minuta ',min,', sekunda ',s,':',setna);
    delay(100);
   until i>300;
 end;
procedure logo;
  begin
    karta:=0;
    tryb:=0;
    initgraph(karta,tryb,'c:\bp\bgi');
    setbkcolor(7);
    settextstyle(3,horizdir,7);
    setcolor(4);
    setfillstyle(11,5);
    {bar(150,180,470,270);}
    ellipse(315,230,0,360,300,60);
    setcolor(4);
    outtextxy(175,180,'Logowanie');
    settextstyle(5,horizdir,1);
    outtextxy(470,455,'Nail-naildr@kki.net.pl');
    settextstyle(1,horizdir,1);
    outtextxy(250,400,'NACISNIJ <ENTER>');
    readln;
    closegraph;
  end;
procedure imie;
   begin
    getdate(y,m,d,dw);
    gettime(h,min,s,setna);
    assign(t,'c:\loging.txt');
    textcolor(4);
    gotoxy(10,12);
    write('Jak sie nazywasz?(imie i nazwisko)');
    append(t);
    readln(s1);
   end;
procedure klasa;
   begin
    getdate(y,m,d,dw);
    gettime(h,min,s,setna);
    assign(t,'c:\loging.txt');
    textcolor(4);
    gotoxy(23,12);
    write('Do ktorej klasy chodzisz? ');
    append(t);
    readln(s2);
    writeln(t,s1,' ,chodzi do klasy ',s2,' logowal(a) sie ',d,'.',m,' o godzinie ',h,':',min);
    close(t);
   end;
begin
    logo;
    {data;}
    imie;
    clrscr;
    klasa;
    gotoxy(30,25);
    textcolor(8);
    writeln('writed by Nailþ1998þAll rights reserved;) þ');

end.