Calculați expresia 1-2+3-4+5-...

Program p1;
var s,i,n:integer;
Begin
s:=0;
write('Introdu n:');
readln(n);
for i:=1 to n do
if i mod 2=1 then s:=s+i
else s:=s-i;
writeln('Expresia=',s);
readln;
End.

Calculați produsul elementelor pare nenule, utilizînd instrucțiunea repeat

Program p1;
var n,p: real;
Begin
p:=1;
repeat
write('Introdu numarul:');
readln(n);
if n mod 2 = 0 then  p:=p*n;
until n=0;
writeln('Produsul elementelor pare nenule=', p:0:2);
readln;
End.

Calculați suma tuturor elementelor nenule introduse, utilizînd instrucțiunea while

Program p1;
var n,s: real;
Begin
s:=0;
write('Introdu numarul:');
readln(n);
while n<>0 do
begin
s:=s+n;
write('Introdu numarul:');
readln(n);
end;
writeln('Suma elementelor nenule=', s:0:2);
readln;
End.