Var
a,b,c,d:integer;
begin
c:=1;
b:=0;
while a<>1 do begin
readln(a);
if a mod 2 <> 0 then begin
b:=b+1;
if b<=10 then c:=c+a;
end;
c:=c*a;
end;
writeln(b,' ',c);
end.
1. Поздравительный текст, отличается оформлением с завитушками, наклонным рукописным шрифтом, назначение - красиво поздравить кого-то.
<span>2. Газетный текст, журнальный - содержит небольшого по размеру колонки, хорошо читабельный шрифт, назначение - донести как можно лучше информацию до человека, заинтересовать, занять.</span>
Var
a: array[1..10] of integer;
i, s, p: integer;
begin
for i:=1 to 10 do
readln(a[i]);
s:=0; p:=1;
for i:=1 to 10 do
if (a[i] mod 2 > 0) and (a[i] < 30) then
begin
s:=s+a[i];
p:=p*a[i];
end;
writeln(s);
writeln(p);
end.