编写一个程序,计算两个非0实属的加,减,乘,除运算结果

数学么，估计是用Pascal了
procedure Func(a,b:Integer);
begin
// 确保非零
if a=0 or b=0 then Exit;
Writeln(IntToStr(a+b));
Writeln(IntToStr(a-b));
Writeln(IntToStr(a*b));
Writeln(FloatToStr(a/b));
end;

IntToStr是将数字转为string的函数，需要uses SysUtils;
pascal中本来做这个事情的函数我忘记了。

QB程序吗？