Zadatak iz racunarstva

zadatak.pas

program zN; { UBACI IME PROGRAMA OVDE }
var
  g, p: real; {G: novac(gold), P: procenat}
begin
  { Pocetne vrednosti, nije neophodno }
  g := 0;
  p := 0;
  
  { Ucitaj podatke, prvo kolicinu novca pa procenat }
  write('Pocetna kolicina novca: ');
  readLn(g);
  write('Porcenat kamate: ');
  readLn(p);
  
  { Ovo uraditi 3 puta (3 godine), svaki put stampaj rezultate. }
  { NOTE: nismo radili petlje(a kao da ih se secam)
  tako da koristimo ovaj veoma ruzan kod }
  g := g + (100/p);
  writeLn('Posle 1. godine, GOLD=', g);
  g := g + (100/p);
  writeLn('Posle 2. godine, GOLD=', g);
  g := g + (100/p);
  writeLn('Posle 3. godine, GOLD=', g);
  
  { Cekaj input }
  readLn();
end.