1) даны числа x и y. если сумма этих чисел больше 100, то выведите "да", иначе выведите "нет". 2) даны числа x, y и z. если произведение x и y больше z, то выведите слово "больше", иначе выведите слово "меньше".

1.
var
  X, Y: integer;

begin
  writeln('Введите числа: ');
  readln(X, Y);
  if x + y > 100
    then
    writeln('ДА')
  else writeln('НЕТ');
end.

2.
var
  X,Y,Z: integer;

begin
  writeln('Введите числа: ');
  readln(X,Y,Z);
  if x*y > z
    then
    writeln('Больше')
  else writeln('Меньше');
end.