Воть думаю так если не правильно прости
Var
a,p: integer;
begin
p:=1;
a:=1;
while a<>0 do begin
write('Введите a:');readln(a);
if a mod 2<> 0 then p:=p*a;
end;
writeln('произведение нечетных: ',p);
end.
А) 1010(2) * 11(2) = 11110(2)
б) 111(2) * 101(2) = 100011(2)
в) 1010(2) * 111(2) = 1000<span>110</span>(2)
Program zadacha;
var a,b,s:integer;
begin
writeln('Введите кол-во жителей: ');
readln(a);
writeln('Введите площадь государства: ');
readln(b);
s:=a/b;
writeln(s);
end.