program Soucin_dvou_cisel_pomoci_scitani;

uses crt;

var x, y, z : real;
    i : integer;
    pom : integer;

begin
  clrscr;
  writeln('Tento program vynasobi dve cisla pomoci scitani.');
  writeln('V tomto programu je pouzit cyklus rizeny promennou.');
  write('Vloz prvni hodnotu: ');
  readln(x);
  write('Vloz druhou hodnotu: ');
  readln(y);
  z := 0;
  pom := trunc(x);
  for i := 1 to pom do z := z + y;
  writeln('Soucin je ',z:10:3);
  writeln;
  writeln('Stiskni ENTER ...');
  readln;
end.