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