XxbBxy - Online Pascal Compiler & Debugging Tool

program Lab5_Simplified;

var
  x, y, z, f: integer; // Використовуємо звичайний integer для простоти

begin
  // 1. Введення даних
  write('Введіть x: '); readln(x);
  write('Введіть y: '); readln(y);
  write('Введіть z: '); readln(z);

  // 2. Логіка за умовою варіанту
  if (x = 5) or (z = 0) then
  begin
    f := 6 * x + 2 * y + 1;
    writeln('Умова 1 (x=5 або z=0)');
  end
  else if (y = 0) and (z > 10) then
  begin
    f := z - 3 + 4 * x;
    writeln('Умова 2 (y=0 та z>10)');
  end
  else
  begin
    f := 4 * x + 5 * y - z; // Відповідає вашому Асемблер-коду
    writeln('Умова 3 (інші випадки)');
  end;

  // 3. Виведення результату
  writeln('Результат F = ', f);

  // Щоб онлайн-компілятор не видав помилку на деяких серверах,
  // readln в кінці можна залишити або прибрати.
  writeln('Завершено.');
end.