fork download
copy 
  1. type
  2.   TPituh = record
  3.     x, y: integer;
  4.   end;
  5.  
  6. var
  7.   Pituh1: TPituh = (x: 0; y: 1);
  8.   Pituh2: TPituh = (x: 2; y: 3);
  9.   Pituh3: TPituh = (x: 2; y: 3);
  10.  
  11.  
  12. begin
  13.     Pituh2 := Pituh1;
  14. 	Writeln(Pituh2.x);
  15. end.
Success #stdin #stdout 0s 4156KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
0
https://ideone.com/VrSjb0
language:
Pascal (fpc 3.0.4)
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!