var
a, b, c: real;
begin
Write('Введите первую стороны => ');
readLn(a, b, c);
writeln('Периметр треугольника равен ', a + b + c);
end.
var n,i,s,k:integer;
Begin
for i:=1 to 7 do Begin
read(n);
if n>0 then k:=k+1;
if n<0 then s:=s+n;
end;
writeln(k,s);
End.
var x:integer;
Begin
write('Введите число: '); read(x);
if(x mod 3 = 0) then write('Число кратно трем!') else
write('Число не кратно трем (остаток: '+x mod 3+')');
End.
Const n = 10;
var b: Integer;
var a: array[1..n] of integer;
begin
for var i := 1 to n do
begin
Read(a[i]);
b+=a[i];
end;
Writeln(b/n);
end.
Первая проверка a < b = 100< 12 - нет, уходим по стрелке справа
Вторая проверка b<c = 12 < 100 - да, уходим по стрелке слева
d:=b то есть d:= 12
вывод d = 12
Ответ: 12.