Niezalogowany (Zaloguj się)
WItaj Gościu! Możesz się teraz zalogować lub poprosić o członkowstwo na Forum Turbo Pascal Web Pag
  1.  
    Uses crt;
    procedure Pisz(napisz:string);
    begin
    write(napis);
    end;
    begin
    Pisz('imie i nazwisko')
    end.