Program nasobeni;
uses crt;

var
a,b,c,x:word;

begin
clrscr;
write('Zadaj prvy cinitel: ');
readln(a);
write('Zadaj druhy cinitel: ');
readln(b);

while (x < a) do
begin
c := c + b;
x := x + 1;
end;

writeln(a,'*',b,'=',c);
readln;
end.