program test;
var a, b: integer;
begin
write('Enter A: ');
readln(a);
write('Enter B: ');
readln(b);
writeln('Area = ', a*b);
readln;
end.
8=3бит
32=5бит
64=6бит
128=7бит
256=8бит
524=9бит
1024=10бит
A:array[1..10000] of integer;
i, n, a, b, k:integer;
begin
k:=1;
readln(n, a, b);
for i:=1 to n do
readln(a[i]);
for i:=a to b do
if ((a[i] mod 3)=0) or ((a[i] mod 5)=0) then k:=k*a[i];
writeln(k);
readln;
end.
CLS
INPUT "n = ", n
P = 1
FOR i = 1 TO 2 * n
P = P * i
NEXT i
PRINT "P = "; P
END