если ответ подразумевается один то однозначно 2.
быстрая печать.
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
SeqRandom(ReadInteger('n='),1,99).Println
end.
<u><em>Тестовое решение:</em></u>
n= 30
8 39 37 3 4 57 33 31 44 12 32 80 14 19 73 64 81 82 36 6 48 12 84 81 6 66 36 51 40 69
<span>наверно переносчик данных но я точно не знаю</span>
Var
N,A,P:integer;
Begin
P:=1;
Write('N = ');Read(N);
For N:= 1 to N do
Begin
Read(A);
if A > 0 then P:=P*A
End;
WriteLn(P);
End.
program raf105;
var x,y,day:real;
begin
write('Сколько спортсмен пробежал в первый день (X): ');
readln(x);
write('Сколько километров он хочет пробежать за день (Y): ');
readln(y);
day:=1;
while x<y do
begin
x:= x+x/100*15;
day:= day+1;
end;
writeln('Спортсмен выполнит цель за ',day,' дн. тренировок');
end.
<em>Программа написана на языке PascalABC</em>