program Expressions;
var
a, b, c, d, result: integer;
x, y, z: real;
flag1, flag2, flag3: boolean;
begin
a := 10;
b := 5;
c := 3;
d := 2;
result := a + b * c - d;
result := (a + b) * (c - d);
result := a div b + c mod d;
result := ((a + b) * c) div (d + 1);
result := a * b + c * d - (a + b) * (c - d);
flag1 := a > b;
flag2 := b <= c;
flag3 := (a = b) or (c <> d);
if (a > b) and (c < d) or (a = 10) then
begin
result := result + 1;
end;
if not (a < b) and (c >= d) then
begin
result := result - 1;
end;
if ((a > b) and (c < d)) or ((a = b) and (c <> d)) then
begin
result := result * 2;
end;
x := 3.14;
y := 2.71;
z := x * y + 1.0;
z := (x + y) * (x - y) / (x * y);
z := x * x + y * y - 2.0 * x * y;
end.