pomoc s programováním

[petod]

násobicí kalkuačku mám hotovou je správně?

Kód: Vybrat vše

program kalkuacka;

var zadanecislo,i,vysledek:integer;

begin
  writeln('zadej cislo kterym se bude nasobit');
  readln(zadanecislo);
  for i:= 0 to zadanecislo do
   vysledek:= zadanecislo+zadanecislo;

    writeln('vysledek je',vysledek);
    readln;
end.