program sucin_pomocou_suctu;
uses crtp2;
var i,x,y,sucin:integer;
 
begin
 writeln('Spocitam sucin x * y bez pouzitia nasobenia');
 writeln('zadaj x'); readln(x);
 writeln('zadaj y'); readln(y);
 
{najjednoduchsia verzia neriesiaca znamienka
 for i:=1 to x do sucin:=sucin+y;
}
 if x>0 then for i:=1 to x do sucin:=sucin+y {pred else nesmie byt bodkociarka}
        else begin
             x:=-x; {problematickemu X<0 zmenime znamienko a zmenu si pamatam}
             for i:=1 to x do sucin:=sucin+y;
             sucin:=-sucin; {zmena znamienka kladneho sucinu na pravdivy zaporny}
             x:=-x; {vratim X do povdneho stavu, ako bolo zadane}
             end;
 
 writeln('Sucin ',x,' * ',y,' je ',sucin);
 readkey
 
end.