var a,b,i,vysledok:integer;
begin
a:= strtoint (edit1.Text);
b:= strtoint (edit2.Text);
vysledok:= 0;
for i:= 1 to b do

vysledok:= vysledok + a;
label1.Caption:= 'sucin cisel ' + inttostr(a) + ' a '+ inttostr (b) + ' je ' + inttostr (vysledok);

end;

end.