Что будет напечатано в результате выполнения следующего фрагмента программы, если значение r равно -10? read(r); if r = 0 then y : = r*10; if r > 0 then y : = r+ 10; if r < 0 then y : = r * r/2; writeln ( 'r = ' , r).

Программа выведет: R=-10.
Ты уверена, что программа написана правильно? Просто код считывает -10 в R, и ее выводит так, что следующие строчки бесполезны
if R = 0 then Y := R*10;

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

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