BEGIN writeln(sin(30):0:3); END.
var x,y:integer; BEGIN x:= -100; y:=x; writeln(y/x+x); END.
var x,y: byte; BEGIN x:= 100; y:=200; y:= y/x - 1; writeln(y); END.
var x,y: real; BEGIN x:= -100; y:=400; y:= sqrt(y/x) - 1; writeln(y); END.
var x,y: real; BEGIN x:= -100; y:=200; y:= (y/x)^2 - 1; writeln(y); END.
var x,y,z: boolean; BEGIN x:= 2 > 3; y:= 6 >= 6; z:= 'abs' > 'abd'; writeln( x or y and z); END.