<em>Притянуто "за уши", но такое уж задание несуразное. Видимо, для старых версий языка.
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function Summa(a:array of integer):=a.Sum;
begin
var a:=ArrRandom(10,-99,99); a.Println; Writeln;
var b:=ArrRandom(20,-99,99); b.Println; Writeln;
var c:=ArrRandom(30,-99,99); c.Println; Writeln;
Writeln('S=',Summa(a)+Summa(b)+Summa(c))
end.
<u>Пример</u>
53 34 13 64 79 28 -98 -43 -19 23
96 -18 48 61 -70 -16 92 0 27 65 -68 -17 -77 90 -13 69 46 85 71 -44
-21 65 -56 31 56 25 37 50 -35 52 91 -94 12 -98 -51 -73 6 -31 -7 -32 35 -88 -53 63 -93 -29 11 22 -23 -89
S=244
Цвет, жирность, сам шрифт, подчеркнутость)00), курсивность)0))
<h2>Код программы</h2>
program raf105;
var i,j,o,n:integer;
begin
write('Введите число N: ');
readln(n);
writeln('Вывод: ');
for i:=2 to n-1 do
begin
o:=0;
for j:= 1 to i do
if (i mod j)=0
then o:= o+1;
if o=2
then writeln(i);
end;
end.
<h2>Результаты работы программы</h2>
Введите число N: 15
Вывод:
2
3
5
7
11
13
Сообщение информативно, если оно пополняет знания человека
(AVC)V(BVC)=А∨С∨С∨В=А<span>∨С∨В
С</span>∨С=С