Если требовалось сделать таблицу истинности, вот. Если нужно что-то другое, то пиши в комментарии, я доделаю.
Результаты идентичны, равенство доказано.
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadSeqInteger('Вводите:', 15)
.Where(t -> t.InRange(1, 14)).Sum.Println
end.
Var x,y,z:integer;
begin
x:=13;
y:=3;
z:=x;
x:=z div y;
y:=x;
writeln(x+' '+y+' '+z);
end.
Ответ
<span>3)x=4, y=4, z=13</span>