Testas Nr. 1
1)
program sk1nr1;
  var n, sum, i : integer;
begin
  read(n);
  sum := 0;
  i := 1;
  while i <= n do
    begin
      sum := sum + i;
      i := i + 1
    end;
  writeln ('sum = ', sum)
end.

n :=
sum :=

2)
program sk1nr2;
  var lp : longint;
      a, i, n : integer;
begin
  read(a, n);
  lp := 1; i := 1;
  while i <= n do
    begin
      lp := lp * a;
      i := i + 1
    end;
  writeln('lp = ', lp)
end.

a := n :=
lp :=

3)
program sk1nr3;
  var n, s, i : integer;
begin
  read(n);
  s := 1;
  i := 1;
  while i <= n do
    begin
      s := s * i;
      i := i + 1
  end;
  writeln('s = ', s)
end.

n :=
s :=

4)
program sk1nr4;
  var m, s : integer;
begin
  read(m);
  s := 0;
  while m > 0 do
    begin
      s := s + m;
      m := m - 1
    end;
  writeln('s = ', s)
end.

m :=
s :=

5)
program sk1nr5;
  var n, a, i, d : integer;
begin
  read(n, a);
  i := 1; d := a;
  while i <= n do
    begin
      a := a + d;
      i := i + 1
    end;
  writeln('a = ', a)
end.

n := a :=
a :=