Cod sursa(job #533943)

Utilizator guralivuion ion guralivu Data 14 februarie 2011 20:58:40
Problema Text Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.28 kb
Raporteaza aceasta sursa 
program test;
type tablou=array[1..10] of integer;
   elev=record
        nume:string;
        med:tablou;
   end;

var x:elev;
function f(x:elev):elev;
begin
  x.med[2]:=10;
  x.nume:='testare';
  f:=x;
end;
begin
  writeln(f(x).nume);
  write(f(x).med[2]);
end.