1)

var

a, b, c, d : integer;

p : boolean;

begin

WriteLn(‘Unesite duzine stranica prvog pravougaonika.’);

Write(‘ a = ‘); Read(a);

Write(‘ b = ‘); Read(b);

WriteLn(‘Unesite duzine stranica drugog pravougaonika.’);

Write(‘ c = ‘); Read(c);

Write(‘ d = ‘); Read(d);

p := ((a < c) and (b < d)) or ((a < d) and (b < c));

WriteLn(‘Vrednost promenljive p je ‘,p);

end.

2)

var

a, b, c, d : integer;

p : boolean;

ulaz, izlaz : Text;

begin

Assign(ulaz, ‘zad1.in’);

Assign(izlaz, ‘zad1.out’);

Reset(ulaz);

Rewrite(izlaz);

Read(ulaz, a, b, c, d);

p := ((a < c) and (b < d)) or ((a < d) and (b < c));

WriteLn(izlaz,‘Vrednost promenljive p je ‘,p);

Close(ulaz);

Close(izlaz);

end.