Fps aprasas mokykliniam darbui

Sveiki. Darau mokyklini darba, dirbu su fps ir gavau uzduoti padaryti programos aprasa. Cia iskilo problemu.

Turiu 2 programas, kaip padaryti puslapiu, kaip priede, aprasus?

Stai programos:

program metai;

var a, men, d, v : longint;

begin

writeln ('įveskite kiek metų sukanka Kęstučiui');

readln(a);

men:=a * 12;

d:=a * 365;

v:=d * 24;

writeln('men = ', men);

writeln ('d = ', d);

writeln ('v = ', v);

end.

..................................................................................

program Palukanos;

var n, a, i :longint;

begin

WriteLn('Įveskite kiek pinigų pasiskolinote');

ReadLn(n);

a:=1;

For i :=1 to n do

begin

WriteLn(i, 'diena atiduoti', a);

a := a*2;

end;

a:=a-1;

n:=n+a;

writeln('Palukanos iš viso=', a);

writeln('Palukanos ir pasiskolinta suma iš viso= ', n);

ReadLn;

end.