Первая ЖИТЬ. т.к. ноль может идти только в паре с 1,2 или 3
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите её версию!</em>
begin
Writeln(ReadReal('a=')*4,' - периметр')
end.
<u>Пример</u>
a= 12.7
50.8 - периметр
<em>program jfe3;</em>
<em>const n=10; {Это будет кол-во элементов массива}</em>
<em>var a:array [1..n] of integer; i,s:integer;</em>
<em>begin</em>
<em>for i:=1 to n do begin</em>
<em> a[i]:=random(100); {элемент выбирается случайно от 0 до 100}</em>
<em> s:=s+a[i]; {Когда эл. присвоился, его значение плюсуется к общ сумме}</em>
<em> end;</em>
<em>for i:=1 to n do</em>
<em>writeln(a[i],' '); {показать сам массив}</em>
<em>writeln(s); {показать сумму}</em>
<em>readln; {чтобы окно сразу не закрывалось}</em>
<em>end.</em>
<em> </em>
Либо powebank либо внешний накопитель