1) Даны числа X и Y. Если сумма этих чисел больше 100, то выведите "Да", иначе выведите...

Question

1) Даны числа X и Y. Если сумма этих чисел больше 100, то выведите "Да", иначе выведите "Нет".
2) Даны числа X, Y и Z. Если произведение X и Y больше Z, то выведите слово "Больше", иначе выведите слово "Меньше".

Answer 1

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.