Исполнитель редактор получает на вход строку цифр и преобразовывает её. редактор может выполнять две команды, в обеих командах v и w обозначают цепочки цифр. заменить (v, w) нашлось (v) дана программа для исполнителя редактор: начало пока нашлось (333) или нашлось (555) если нашлось (555) то заменить (555, 3) иначе заменить (333, 5) конец если конец пока конец какая строка получится в результате применения выше программы к строке, состоящей из 93 идущих подряд цифр 5? в ответе запишите полученную строку.

Для початку визначаємо площу острова на якому мешкають Робінзони: Plostr:=K*K;. Друга дія, що повинна виконуватись – наявність вільного місця на острові VSostr:=Plostr-S*P, і на останок, якщо вільне місце буде то розраховуємо кількість Робінзонів яка б могла розміститися на острові у випадку аварії корабля поблизу острова: KP:=VSostr div P. Визначаємо типи змінних. Так як за умовою задачі сторона острова та площі мають бути цілими числами більшими за нуль але не обмеженими по величині виберемо для них тип integer, кількість людей, що проживають на острові також число ціле і воно може бути більше ніж 255(тип byte) то залишається обрати також тип integer. В результаті ми також отримуємо числа цілі але можливо там будуть і від’ємні значення тому тип змінних визначаємо як integer.Var K, P, S, Plostr, VSostr, KP:integer;
Begin
Write (‘введіть кількість проживаючих на острові Робінзонів:’);
Readln(P);
Write (‘введіть довжину острова у метрах:’);
Readln(K);
Write (‘введіть площу, яка визначена законом для проживання одного Робінзона:’);
Readln(S);
Plostr:=K*K;
VSostr:=Plostr-S*P;
If VSostr < 0 then write(‘Права Робінзонів порушені, так як площі острова не достатньо’)
Else
Begin
If Vostr=0 then write (‘На острові місця вистачить тільки для тих Робінзонів, які там вже проживають’)
Else 
Begin
KP:=VSostr div P;
If KP>0 then write(‘ На острові можуть бути поселені ще ’,KP,’ Робінзон(ів)’)
Else write(‘На острові місця вистачить тільки для тих Робінзонів, які там вже проживають ’);
End;
End;
Readln;
End.

Program task1;
var  i :integer;
function   kub (x :integer) :integer;  var k :integer;  begin    k:= x*x*x;    kub:= k;  end;  begin
  for i:= 9 downto 1 do  if i mod 2 = 1 then  write(sqr(i),' ');  writeln;  for i:= 9 downto 1 do  if i mod 2 = 1 then  write(kub(i),' ');
end.

program task2;
var  i, sum :integer;
begin
  sum:= 0;  for i:= 1 to 150 do    if (i mod 5 = 0) or (i mod 7 = 0) then      sum:= sum + i;  writeln(sum);
end.

program task3;
var  i, sum :integer;
begin
  sum:= 0;  for i:= 10 to 50 do    if (i mod 4 = 0) and (i mod 6 <> 0) then      sum:= sum + i;  writeln(sum);
end.

program task4;
var  i, p :integer;
begin
  p:= 1;  for i:= 10 to 50 do    if (i mod 2 = 1) and (i mod 13 = 0) then      p:= p*i;  writeln(i);
end.