Составить программу нахождения суммы, разности, произведения и частного 3-х случайных чисел из диапазона от 0 до 50.

Program Zadacha; Var sum, raz, pr, ch, x, y, z: real;Begin randomize; x:=random(50); y:=random(50); z:=random(50); sum:= x + y + z; Writeln(\'Сумма = \',sum:4:2); raz:= x - y - z; Writeln(\'Разность = \',raz:4:2); pr:= x * y * z; Writeln(\'Произведение = \',pr:4:2); ch:= x/y; ch:= ch/z; Writeln(\'Частное = \',ch:4:2);End.