Var a,b,c:integer;
begin
read(a,b,c);
if (a>=0) and (b>=0) and (c>=0) then
writeln(sqrt(a)+sqrt(b)+sqrt(c))
else
writeln('Одно из чисел отрицательное');
<span>end.</span>
Program z1;
var a, b:integer;
begin
write(' Введите возраст Саши - '); read(a);
write(' Введите возраст Mаши - '); read(b);
if a>b then writeln(' Саша старше Маши на ',a-b,' лет');
if a<b then writeln(' Маша старше Саши на ',b-a,' лет');
<span>end.</span>
ты скажи в каких системах счисления у тебя даны они изначально. А то не понятно, как переводить.
2.Сортировка в линейных структурах: вставка(простая, бинарная), выбор, обмен(стандартный, Шелла, Хоара)
Сортировка в нелинейных структурах: турнирная, пирамидальная.