Var broj,m,n,c:integer;
begin
readln(broj); m:=1; n:=14;
while(broj>0) do
begin
if (broj mod 10=0) or (broj mod 5 =0) then m:=m*broj;
readln(broj);
end;
writeln(m); writeln(n);
end.

1.   ?    Proizvod brojeva koji su deljivi sa 10 i broj 14
2.   ?    Proizvod brojeva koji su deljivi sa 10 i broj 1
3.   ?    Proizvod brojeva koji su deljivi sa 5 i broj 14
4.   ?     Proizvod brojeva koji su deljivi sa 5 i broj 1
5.   ?    Proizvod brojeva koji su deljivi sa 50 i broj 14

var a:Array [1..100] of integer;
d,i,n:integer;
begin
Readln(n);d:=0;
for i:=1 to n do readln(a[i]);
for i:=1 to n do
if (a[i] mod 7 = 0)and (a[i] mod 3 = 0)
then writeln(a[i]*a[i]);
end.

1.   ?    Kvadrate svih clanova niza deljivih sa 7 ili 3.
2.   ?    Kvadrate svih clanova niza.
3.   ?    Kvadrate svih clanova niza deljivih sa 7 .
4.   ?    Kvadrate svih clanova niza deljivih sa 21.
5.   ?    Kvadrate svih clanova niza deljivih sa 3.

var a:Array [1..100] of integer;
d,i,n:integer;
begin
Readln(n);d:=1;
for i:=1 to n do readln(a[i]);
for i:=1 to n do
if (a[i] mod 10 = i)
then d:=d*a[i];
writeln(d);
end.

1.   ?    Proizvod svih elemenata niza.
2.   ?    Proizvod svih koji su jednaki poziciji.
3.   ?     Proizvod jednocifrenih elemenata.
4.   ?    Proizvod zadnjih cifara elemenata.
5.   ?    Proizvod svih clanova niza koji imaju poslednju cifru jednaku poziciji u okviru niza.

Var broj,m,n,c:integer;
begin
readln(broj); m:=broj; n:=1;
while(broj>0) do
begin
c:=broj mod 10;
if c mod 2=1 then n:=n*c;
broj:=broj div 10;
end;
writeln(c); writeln(n);
end.

1.   ?    Ucitani broj i proizvod neparnih cifara.
2.   ?     Ucitani broj i proizvod parnih cifara.
3.   ?    Prvu cifu i proizvod neparnih cifara.
4.   ?    Pocetnu cifru ucitanog broj i proizvod neparnih cifara tog broja.
5.   ?     Prvu cifu i proizvod parnih cifara.

var a:Array [1..100] of integer;
d,i,n:integer;
begin
Readln(n);d:=0;
for i:=1 to n do readln(a[i]);
for i:=1 to n do
if (a[i]*a[i] div 100=0) then d:=d+a[i];
writeln(d);
end.

1.   ?    Zbir svih clanova niza koji imaju za kvadrate trocifrene brojeve
2.   ?    Zbir svih clanova niza koji imaju za kvadrate maksimalno dvocifrene brojeve.
3.   ?     Zbir svih clanova niza koji imaju za kvadrate samo dvocifrene brojeve
4.   ?    Zbir clanova kojima su kvadrati jednocifreni
5.   ?    Zbir clanova kojima su kvadrati cetvorocifreni
   

Var broj,m,n,c:integer;
begin
readln(broj); m:=broj; n:=1;
while(broj>0) do
begin
n:=n*(broj mod 10);
if broj>999 then m:=m div 10;
broj:=broj div 10;
end;
writeln(n); writeln(m);
end.

1.   ?    Proizvod cifara i tri prve cifre
   
2.   ?    Proizvod cifara i tri zadnje cifre
3.   ?     Zbir cifara i prve tri cifre
4.   ?    Zbir cifara i zadnje tri cifre
5.   ?    Proizvod cifara i ucitani broj

var
a:Array [1..100] of integer;
d,i,n:integer;
begin
Readln(n);d:=1;
for i:=1 to n do readln(a[i]);
for i:=1 to n do
if (a[i] div 100 > 0) and (a[i] div 1000 = 0) then d:=d*a[i];
writeln(d);
end.

1.   ?    Proizvod svih dvocifrenih clanova niza
2.   ?    Proizvod svih trocifrenih clanova niza
3.   ?     Proizvod svih četvorocifrenih clanova niza
4.   ?    Proizvod svih koji nisu trocifrenih clanovi niza
5.   ?    Proizvod svih koji nisu dvocifreni clanovi niza

var a:Array [1..100] of integer;
d,i,n:integer;
begin
Readln(n);d:=0;
for i:=1 to n do readln(a[i]);
for i:=1 to n do
if (a[i] mod i = 0)
then writeln(a[i]*a[i]);
end.

1.   ?    Kvadrate svih clanova niza deljivih sa svojom poziciom.
2.   ?    Kvadrate svih clanova niza deljivih sa n.
3.   ?     Kvadrate svih clanova niza deljivih sa 2.
4.   ?    Kvadrate svih clanova niza deljivih sa brojem manjim od n.
5.   ?    Kvadrate svih clanova niza.

Var broj,m,n,c:integer;
begin
readln(broj); m:=broj; n:=1;
while(broj>0) do
begin
c:=broj mod 10;
if c mod 2=0 then n:=n*c;
broj:=broj div 10;
end;
writeln(m); writeln(n);
end.

1.   ?    Ucitani broj i proizvod parnih cifara tog broja.
2.   ?    Prvu cifru i zbir cifara tog broja
3.   ?    Ucitani broj i zbir neparnih cifara tog broja
4.   ?    Ucitani broj i zbir cifara tog broja
5.   ?     Zadnju cifru i zbir cifara tog broja

Var broj,m,n,c:integer;
begin
readln(broj); m:=0; n:=1;
while(broj>0) do
begin
if (broj mod 100) div 10 = broj mod 10 then m:=m+broj;
readln(broj);
end;
writeln(m); writeln(n);
end.

1.   ?    Zbir dvocifrenih brojeva i ucitani broj.
2.   ?    Zbir jednocifrenih brojeva i ucitani broj.
3.   ?    Zbir brojeva koji se zavrsavaju sa dve iste cifre i broj 1
4.   ?    Zbir dvocifrenih brojeva i broj 1.
5.   ?    Zbir jednocifrenih brojeva i broj1.

Var broj,m,n,c:integer;
begin
readln(broj); m:=1; n:=12;
while(broj>0) do
begin
if (broj mod 100) div 10 <> broj mod 10 then m:=m*broj;
readln(broj);
end;
writeln(m); writeln(n);
end.

1.   ?    Proizvod brojeva koji se zavrsavaju sa dve razlicite cifre i broj 12
2.   ?    Broj 1 i proizvod dvocifrenih brojeva.
3.   ?    Proizvod dvocifrenih brojeva i broj 12.
4.   ?    Proizvod jednocifrenih brojeva i broj 12.
5.   ?     Proizvod brojeva sa razlicitim ciframa i 1.

var a:Array [1..100] of integer;
k,d,i,n:integer;
begin
Readln(n);d:=1;k:=0;
for i:=1 to n do readln(a[i]);
for i:=1 to n do
if (a[i] div 10 > 0) and (a[i] div 100 = 0) then d:=d*a[i]
else k:=k+a[i];
writeln(d); writeln(k);
end.

1.   ?    Zbir dvocifrenih i proizvod ostalih.
2.   ?    Zbir trocifrenih i proizvod ostalih.
3.   ?    Proizvod trocifrenih i zbir ostalih.
4.   ?    Proizvod dvocifrenih i zbir ostalih.
5.   ?    Proizvod dvocifrenih i broj 0.
   

var a:Array [1..100] of integer;
d,i,n:integer;
begin
Readln(n);d:=0;
for i:=1 to n do readln(a[i]);
for i:=1 to n do
if (i mod 3 = 0)
then d:=d+a[i];
writeln(d);
end.

1.   ?    Zbir svih clanova niza na pozocijama deljivim sa 3.
2.   ?    Zbir svih clanova niza deljivih sa 3.
3.   ?    Zbir pozicija niza deljivih sa 3
4.   ?     Zbir svih clanova niza koji nisu deljivi sa 3.
5.   ?     Zbir pozicija niza koje nisu deljive sa 3

Var broj,m,n,c:integer;
begin
readln(broj); m:=broj mod 10; n:=1;
while(broj>0) do
begin
c:=broj mod 10;
if c div 2>2 then n:=n*c;
broj:=broj div 10;
end;
writeln(m); writeln(n);
end.

1.   ?    Poslednju cifru ucitanog broja i proizvod cifara tog broja koje su vece od 5.
2.   ?    Poslednju cifru i uctani broj.
3.   ?    Ucitani broj i proizvod cifara većih od 2.
4.   ?     Poslednju cifru ucitanog broja i proizvod cifara tog broja koje su vece od 4.
5.   ?    Ucitani broj i proizvod cifara većih od 4

var a:Array [1..100] of integer;
d,i,n:integer;
begin
Readln(n);d:=0;
for i:=1 to n do readln(a[i]);
for i:=1 to n do
if (a[i] mod 3 = 0) then d:=d+a[i];
writeln(d);
end.

1.   ?    Zbir svih clanova niza na pozocijama deljivim sa 3.
2.   ?    Zbir pozicija niza deljivih sa 3
3.   ?    Zbir svih clanova niza koji nisu deljivi sa 3.
4.   ?    
   Zbir svih clanova niza koji nisu deljivi sa 3.
5.   ?    Zbir svih clanova niza deljivih sa 3.

Var broj,m,n,c:integer;
begin
readln(broj); m:=broj; n:=0;
while(broj>0) do
begin
c:=broj mod 10;
if c mod 2=1 then n:=n+c;
broj:=broj div 10;
end;
writeln(m); writeln(n);
end.

1.   ?    Ucitani broj I zbir parnih cifara tog broja
2.   ?    Prvu cifru I zbir cifara tog broja
3.   ?    Ucitani broj i zbir neparnih cifara tog broja.
4.   ?     Ucitani broj I zbir cifara tog broja
5.   ?    Zadnju cifru I zbir cifara tog broja