Var n,n1,n2,n3,n4,sum:integer;
Begin
readln(n);
<span> n1:=n div 1000; </span>
<span> n2:=n div 100; </span>
<span> n2:=n2 mod 10; </span>
<span> n3:=n div 10; </span>
<span> n3:=n3 mod 10; </span>
<span> n4:=n mod 10; </span>
<span>n2:=n2*n2; </span>
<span>n3:=n3*n3; </span>
<span> sum:=sum+n2+n3; </span>
writeln('sum=',sum);
end.
A = 60
b = 10
a = a-b*3 = 60-10*3 = 60-30 = 30
a<b ⇒ 30<10 ⇒ false ⇒c = b-a = 10-30 = -20
Ответ: c = -20
если a>5 то a:=a+20 иначе a:=a*10
Подставляем значение а.
1) a=4
если 4>5 то a:=4+20 иначе a:=4*10
Утверждение ложно, выполняется то, что после "иначе". a:=4*10 = 40
2) a=17
если 17>5 то a:=17+20 иначе a:=17*10
Утверждение истинно, выполняется то, что после "то". a:=17+20 = 37