1/ programme de calcul

Program   Calc ;

Var  x,y:integer; 

 

Begin

     Writeln(‘Enter Two number ‘ );

     Readln(x,y);

     Writeln(‘The Result of  ‘,x,’   +’,y, ‘     =‘,x+y);     Writeln(‘The Result of  ‘,x,’   *’,y, ‘     =‘,x*y);     Writeln(‘The Result of  ‘,x,’   -’,y, ‘     =‘,x-y);

     Writeln(‘The Result of  ‘,x,’  /’,y, ‘     =‘,x/y);

End.