Вводятся m чисел, если ввели больше 10 то найти их сумму, если меньше 10 то найти произведение. Првавильно составлена?

Вопрос от пользователя: Николай

Вводятся m чисел, если ввели больше 10 то найти их сумму, если меньше 10 то найти произведение. Првавильно составлена?

var

a, m, s, p:integer;

begin;

read (m);

p:=1;

s:=0;

for 1 to m do;

begin;

read (a);

s:=s+a;

p:=p*a;

end;

if m>10 then write (s);

if m < 10 then write (p); end.

Ответ: Маруля

Var a, m, s, d:integer;

begin

readln (m);

if m>=10 then

begin

s:=0;

d:=0;

end;

if m