Var n,a,h,m,s:integer;
begin
writeln('Введите кол-во дней');
read(n);
if n>1 then begin
writeln('В ', n ,' сутках:');
writeln(n*24,' часа');
writeln(n*24*60,' минут');
writeln(n*24*60*60,' секунд')
end;
if n=1 then begin
writeln('В ',n,' дне');
writeln(n*24,' часа');
writeln(n*24*60,' минут');
writeln(n*24*60*60,' секунд');
end;<span>
end.
</span>
P = 0
print('a')
a = int(input())
print('b')
b = int(input())
z = b
if b < 0:
z = -b
for i in range(1, z+1):
p += a
if b < 0:
p = -p
print('p =', p)
Writeln(x) вот этой! Потому что если взять в ковычки выведет х
<span>Схема состава объекта отражает не только составные части, но и тот порядок, в котором предмет "разбирался" на части. Таким образом, она отражает строение (структуру) объекта.
Это цитата, переформулируй своими словами и чуть подробнее.</span>
begin
var
a:=ArrRandom(20,1,20).Print;writeln();
writeln(a.Aggregate(BigInteger(1),(i,j)->(i*j)));
end.