program test1(output);
var a,b:integer;
procedure one;
var rec1: record a,b:integer; end;
    r1,r2:real;
    b1,b2:boolean;
begin
a:=-3;
b:=rec1.b*a;
r1:=a*b+b;
r2:=-r1;
b1:=a>b;
if b1 then b2:=r1<r2
end;

begin
one;
end.