Ответ:

Объяснение:

if X <> 0 then Y := 5 / X;

case X of 0: WriteLn ('Ложь '); 1: WriteLn ('Истина '); End;

if X >= 0 then WriteLn ('Число положительно ') else WriteLn ('Число отрицательно ');