(Работа с подпрограммами Pascal)
Что не так с программой? В чем ошибка?
program primer1;
Procedure f (u:real; var c:real);
begin
if u<0 then c:=-1 else if u>0 then c:=1 else c:=0;
end;
Var a,b,z,f1,f2:real;
begin
writeln ('a=');readln (a);
writeln ('b=');readln (b);
f(sqr(a)*sign(a+b)+sqr(b)*sign(a-b),f1);
f(sign(a*b),f2);
z:=f1*f2;
writeln ('z=',z:6:3);
readln
end.

Единственный стопроцентный вариант не допустить воровства контента — не публиковать его. Может звучать абсурдно, но на самом деле так и есть. Бороться с плагиатом в интернете всё равно что бороться с кариесом. Это война, в которой невозможно победить, но сражаться необходимо. Инструменты для этого есть, но гарантий никаких.

Иногда воруют по мелочи: статью, картинку, фотографию. А иногда по-крупному: целиком страницы, сайты или блоги. Закон в любом случае на стороне автора. Использование контента возможно только с его согласия. А отсутствие запрета не означает согласие. Если контент украли, значит, нарушили закон и за это можно наказать.

Объяснение:

Python 3.5:
a, b, c, d = list(map(float, input().split()))
print(False if (c == d) else ((a + b + c + d)/(c - d)).is_integer())

Сначала вводим 4 вещественных числа a, b, c, d.
Если c = d, то ответ False - частное будет нехорошим, поскольку в знаменателе будет 0. Если c не равно d, проверяем при встроенной функции is_integer(), что (a + b + c + d)/(c - d) - целое число. 

Если a, b, c, d - целые, то float в решении можно заменить на int, а проверку при на проверку, что остаток от деления равен нулю, (a + b + c + d) % (c - d) == 0.