Как можно создать новый объект, Какие команды используются при смене костюмов

Question

Информатика: Как можно создать новый объект, Какие команды используются при смене костюмов​

nastyaorelrus · Accepted Answer

Procedure Chisla(n : Integer);
var a : Integer;
begin
if (n < 1) then
WriteLn
else
begin
Read(a);
if (Abs(a) < 1000) then
begin
Chisla(n-1);
Write(a,' ');
end
else
Chisla(n);
end;end; function ReadN() : Integer;
var
n : Integer;begin
Write('n=');
ReadLn(n);
if Not(n in [0..1000]) then
n := ReadN();
ReadN := n;end; var
n : Integer; begin
n := ReadN();
WriteLn('Введите ', n, ' целых чисел через пробел и нажмите Enter');
Chisla(n);
end.

Как можно создать новый объект, Какие команды используются при смене костюмов​

MOGZ ответил