أنشئ حسابًا أو سجّل الدخول للانضمام إلى مجتمعك المهني.
procedure multiple ()
variables a,b,s : integer;
write ( " enter the first number");
read (a);
write ("enter the second number");
read (b);
s=a*b
Write ("s=",s);
End
