var number,a,b,c,otvet :integer;
begin
writeln('Напишите номер задания (1,2)');
readln(number);
otvet:=0;
if (number>2) or (number<1) then
writeln('Такого задание нет, есть только 1 и 2 номера.');
if number=1 then
begin
writeln('Введите число');
readln(a);
if a>0 then
begin
writeln('Число положительное');
end
else
writeln('Число отрицательное');
end;
//***************
if number=2 then
begin
writeln('Напишите 3 числа через пробел');
readln(a,b,c);
if a>0 then
otvet:=otvet+a;
if b>0 then
otvet:=otvet+b;
if c>0 then
otvet:=otvet+c;
writeln('Сумма положитеьных чисел: ',otvet);
end
end.