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

Что будет напечатано в результате исполнения следующего куска программки, если значение 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).