Var
a, b, i, j, found: integer;
begin
readln(a, b);
for i := a to b do
begin
found := 1;
for j := 2 to round(sqrt(i + 1)) do
begin
found := found * (i mod j);
if found = 0 then break;
end;
if found <> 0 then write(i, ' ');
end;
end.
Var a,b:integer;
begin;
b:=1;
a:=1;
while a<>0 do
begin;
readln(a);
if a=0 then break;
b:=b*a;
end;
writeln(b);
<span>end.</span>
var G,S,L:integer;
BEGIN
write('Количество горилл = ');
readln(G);
write('Количество шимпанзе = ');
readln(S);
write('Количество лемуров = ');
readln(L);
writeln(G*3+S*2+L);
end.