fork download
copy 
  1. type  TPracodawca = record
  2.       imie      : string[100];
  3.       nazwisko  : string[100];
  4.       nazwa     : string[200];
  5.       NIP       : string[20];
  6.       REGON     : string[20];
  7.       PESEL     : string[20];
  8.   end;
  9.  
  10. procedure WypelnijDane(var rec: TPracodawca); 
  11. var Pracodawca : TPracodawca;
  12. begin
  13. end;
  14.  
  15. begin
  16. 	(* your code goes here *)
  17. end.
Success #stdin #stdout 0s 4812KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/yTrIak
language:
Pascal (gpc 20070904)
created:
3 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!