RTFM - Read This Finest Manual (Прочтите это замечательное руководство)
CLS
a:
INPUT a
IF a<=0 THEN GOTO a
b:
INPUT b
IF b<=0 THEN GOTO b
c:
INPUT c
IF c<=0 THEN GOTO c
IF a>=b+c OR b>=a+c OR c>=a+b THEN PRINT 0: END
IF a=b AND b=c AND c=a THEN PRINT "треугольник равноcторонний" END
IF a=b OR b=c OR c=a THEN PRINT "треугольник равнобедренный": ELSE PRIINT "другой"
END
Const n=13;
var
c:array[1..n] of integer;
i,num:integer;
begin
for i:=1 to n do c[i]:=random(-10,10);
for i:=n downto 1 do begin
write(c[i],' ');
if c[i] < 0 then begin
writeln(i);
break;
end;
end;
end.
Ответ : день(5+6+15+30) самое наименьшее