Begin1. даны два ненулевых числа. найти их сумму, разность, произведение и частное.

program  odin;   var  a,b,sum,razn,proizv,chast: real;

begin

writeln('vvedite a');

readln  (a);

writeln('vvedite b');

readln(b);

if  (a< > 0)  and  (b< > 0)  then  begin  writeln('summa=',a+b: 0: 0);

writeln('raznost=',a-b: 0: 0);

writeln('proizvedenie=',a*b: 0: 0);

writeln('chastnoe=',a/b: 0: 1);

end

else  writeln  ('chiso ravno 0');                          

end.

program odin; var a,b,sum,razn,proizv,chast: real;

begin

writeln('vvedite a');

readln(a);

writeln('vvedite b');

readln(b);

if(a< > 0)and(b< > 0)thenbeginwriteln('summa=',a+b: 0: 0);

writeln('raznost=',a-b: 0: 0);

writeln('proizvedenie=',a*b: 0: 0);

writeln('chastnoe=',a/b: 0: 1);

end

elsewriteln('chiso ravno 0');                          

end.

подпрограммы могут быть 2 видов - процедуры и функции.

описываются после var, перед begin