<span>а := 10 ⇒ значение 10 помещается в а
b := 4 ⇒ значение 4 помещается в b
b := 200-а*b ⇒ 200-10×4 = 160 помещается в b, заменяя значение 4
а := b/20*а</span> ⇒ (160/20)×10 = 80 помещается в a, заменяя значение 10
<u>80</u>
If a div 10 ???? нет условия. нужно
if (a div 10)mod 10 <> 0 then....
Просто, если логически подумать, то
<em>Белов -рыжеволосый</em>
<em>Чернов -беловолосый</em>
<em>Рыжов- черноволосый</em> :)
Program z1;
var
a,b,s:integer(real);
begin
readln(a);
readln(b);
s:=a+b;
writeln(s);
end;