Что будет написано в результате выполнения последующего куска программки, если значение

Что будет написано в итоге исполнения последующего куска программки, если значение R одинаково -10?

read(R);

if R = 0 then Y := R*10;

if R gt; 0 then Y := R+ 10;

if R lt; 0 then Y := R * R/2;

writeln ( 'R = ' , R).