type funkcja = function (d: Double): Boolean;i zadeklarowano zmienne:
var f : funkcja; wsk : Pointer;Co zostanie przypisane zmiennej f po wykonaniu instrukcj:
f:=funkcja(wsk);a co spowoduje wykonanie instrukcji
funkcja(wsk):=f;
program Egzamin; {$APPTYPE CONSOLE} uses SysUtils; var w, w1 : Variant; i : Integer; begin w:=VarArrayCreate([1,4],varVariant); w[1]:='Object'; w[2]:=False; w[3]:=1.2; w[4]:=2; for i:=1 to 4 do Writeln(w[i]); w1:=w; w[4]:=VarArrayCreate([1,4],varVariant); w[4]:=w1; for i:=1 to 3 do Writeln(w[i]); for i:=1 to 4 do Writeln(w[4][i]); Readln end.