Var skorost,pyt:real;
begin
writeln('Скорость равна = ');
read(skorost);
writeln('Путь равен = ');
read(pyt);
writeln('Время равно = ',pyt/skorost);
end.
Var
a,b:Integer;
Begin
Read(a,b);
if (a>b) then Writeln(b,' ',a)
else Writeln(a,' ',b);
end.
Например:
-пожар в лесу, в котором сгорают деревья,
-кристаллики снежинок, тающие весной,
-прибрежные скалы, которые со временем подтачивают океанские волны,
-рыба, которую поймал и съел медведь.
Во всех этих случаях, упорядоченные ранее структуры разрушаются, распадаются на составляющие частицы и разносятся в конечном итоге по всей планете а некоторые и дальше.
Не парься,поймешь,это временно)))там свой принцип,спраси у информатички)