تقني سامي في الاعلام الالي

[hfk vsjl]

شكرا لكم على التفاعل ارجو لكل من له فكرة على الحل ان يضعها سابدا انا بموضوع
sarahalgerie
الخوارزميات
التمرين الاول
programe multiplication;
var a,b,i,c:integer;
begin
lire(a,b);
c:=0;
if b:=0 then
c:=0
else if(b<0)
then
begin
b:=-b;
for i:=1 to b do
c:=c+a;
c:=-c;
end
else
for i:=1 to b do
c:=c+a;


write(c);
end.