<span>program</span> odin; <span>var</span> a<span>,</span>b<span>,</span>sum<span>,</span>razn<span>,</span>proizv<span>,</span>chast<span>:</span><span>real</span>;
<span>begin</span>
<span>writeln</span><span>(</span><span>'vvedite a'</span><span>)</span>;
<span>readln</span><span>(</span>a<span>)</span>;
<span>writeln</span><span>(</span><span>'vvedite b'</span><span>)</span>;
<span>readln</span><span>(</span>b<span>)</span>;
<span>if</span><span>(</span>a<><span>0</span><span>)</span><span>and</span><span>(</span>b<><span>0</span><span>)</span><span>then</span><span>begin</span><span>writeln</span><span>(</span><span>'summa='</span><span>,</span>a<span>+</span>b<span>:</span><span>0</span><span>:</span><span>0</span><span>)</span>;
<span>writeln</span><span>(</span><span>'raznost='</span><span>,</span>a<span>-</span>b<span>:</span><span>0</span><span>:</span><span>0</span><span>)</span>;
<span>writeln</span><span>(</span><span>'proizvedenie='</span><span>,</span>a<span>*</span>b<span>:</span><span>0</span><span>:</span><span>0</span><span>)</span>;
<span>writeln</span><span>(</span><span>'chastnoe='</span><span>,</span>a<span>/</span>b<span>:</span><span>0</span><span>:</span><span>1</span><span>)</span>;
<span>end</span>
<span>else</span><span>writeln</span><span>(</span><span>'chiso ravno 0'</span><span>)</span>;
<span>end</span>.