var i:word; t:single; begin i := 2; t := 2; write ('/', t:4:1, i:3, i, '/'); end. var i:word; t:single; begin i := 1; t := 5; write ('/', t:3:1, i, i:2, '/'); end. 
var k:byte; y:real; begin k := 4; y := 2; write ('* *' ,k, y:k:2,' *'); end.
var k:byte; x:real; begin k := 2; x := 1; write ('*', '*',x:4:1, k:k, '* *'); end.
var k:integer; x:real; begin k := 2; x := 3; write ('[',x:4:2, k,']'); end.
var a: string;Procedure P( a: char; var d: char);begin a:='в'; d:='c';end;begin a:='глаз'; P(a[1],a[4]); write (a)end.
var a: string;Procedure P( var a: char; d: char);begin a:='в'; d:='д';end;begin a:='глаз'; P(a[1],a[4]); write (a)end.
var a,b: string;Procedure P( a: string; var b: string);begin a[1]:=b[1]; b[2]:=a[2];end;begin a:='abcd'; b:= 'opr'; P(a,b); write (a,b)end.
var a,b: string;Procedure P( var a: string; b: string);begin a[1]:=b[1]; b[2]:=a[2];end;begin a:='abcd'; b:= 'opr'; P(a,b); write (a,b)end.
var a,b,c,d: integer;Procedure P( var a,c,d: integer);var b: integer;begin a:=5; c:=7; b:=9;end;begin a:=1; b:=1; c:=1; P(a,b,c); write (a,'|',b,'|',c)end.
var a,b: string;Procedure P( a,b: string);var c: string;begin c:=a; a:=b; b:=c;end;begin a:='abc'; b:= 'pr'; P(a,b); write (a,b)end.