6.4.. Napisati program za računanje godina starosti.

Opis rješenja:

Opis programa:

Listing programa:

PROGRAM godine;
VAR
  tg, gr, gs:Integer;
BEGIN
  Write('Unesi tekucu godinu i godinu rodjenja :');
  Readln(tg, gr);
  gs := tg - gr;                { orazlika tekuće i godine rođenja }
  Writeln('Imate ', gs, ' godina');
  READLN;
END.

Ispis na ekranu:

Index