begin
var a := ArrRandom(ReadInteger('n ='), -15, 15);
a.Println;
a.ForEach(x -> begin if x < 0 then Print(x) end)
end.
<span>Пример объекта-процесса: 1)каникулы 2)гроза 3)процессор 4)компьютер
</span>4 и 3 вот и всё
Var i:integer; s,p:real;
begin
s:=0;
p:=1;
for i:=1 to 10 do
begin
p:=p*i;
s:=s+p;
end;
writeln('s = ',s);
end.
Результат:
s = 4037913
Program p_1;
var a: word;
begin
readln(a);
a := a * a;
writeln(a)
end