Определите значение переменной р после выполнения следующего фрагмента программы: m: =13; n: =21; n: =2*m-n; if m< =n then p: =m+n else p: =4-m*n; , с по информатике, буду . желательно расписать так, как это должно выглядеть в программе pascal.

m = 13;
n = 21;
n = 2*m-n = 2*13-21 = 26-21 = 5;
m< =n = 13 <= 5 = false ⇒ p = 4-m*n = 4-13*5 = -61

var n,m,p:integer;
begin
m:=13;
n:=21;
n:=2*m-n;
if m<=n then
p:=m+n
else
p:=4-m*n;
writeln(p);
end.

Результат:
-61