Дано слово из 12 букв. Поменять местами его трети следующим образом:1)Первую треть слова разместить на месте третьей, вторую треть – на месте первой, третью треть – на месте второй.2) Первую треть слова разместить на месте второй, вторую треть – на месте третьей, третью треть – на месте первой.Программы на алгоритмечиском языке (КуМир)

Колибри – әлемдегі ең кішкентай құс саналады. Оның көлемі бар болғаны 7 см-ді құраса, салмағы 2 грамм болады екен. Көзге елестетудің өзі қиын әрі қызық. Колибрилер тез ұшады, әрі ұшу бағытын үнемі өзгертіп отырады. Кейбір ұсақ түрлері қанаттарын секундына 80 рет қаға алады. Тұмсықтары жіңішке әрі ұзын, кей түрінде иіліп келген, гүл шырындарын соруға бейімделген. Олар гүл шырындарымен, ұсақ жұмсақ жәндіктермен, өрмекшілермен қоректенеді.Тағы бір ерекшелігі бар. Ол - артқа ұша алатын жалғыз құс. Сондай-ақ, ұяны жасайтын да балапан басатын да анасы екен1

Program project1;
uses
crt,math;
var  s:real;  i,j,f:real;  a:integer;
begin 
writeln('vvedite 1 chislo ');readln(i);
  writeln('vvedite 2 chislo ');readln(j); 
 writeln('vvedite 3 chislo ');readln(f); 
 s:=i; 
 if j<s then s:=j; 
 if f<s then s:=f; 
 if s<0 then 
 begin  
  if i<0 then inc(a);  
  if j<0 then inc(a);  
  if f<0 then inc(a);  
  writeln('kolichestvo otricatelnix ',a:2);
  end 
 else  
begin  
  if i>0 then i:=i*-1;
  if j>0 then j:=i*-1;
  if f>0 then f:=i*-1; 
 end; 
 writeln('min chislo ',s:2:0); 
 readln;
end.