1) Дано число. Правда ли что оно трëхзначное. 2) Даны два числа. Правда ли что первое число больше второго.
быстрей

1)

program Sanya2263;

var n: integer;

begin

Read(n);

if (n>=100)and(n<=999) then Write('правда')

else Write('ложь');

end.

2)

program Sanya2263;

var a,b: integer;

begin

Read(a,b);

if a>b then Write('правда')

else Write('ложь');

end.