Составить алгоритм для решения вычислить y = 1/a+1/c-1

Для сред программирования DOS (например, Turbo Pascal) удалите фигурные скобки, для сред Windows (например, PascalABC.Net) строки в фигурных скобках удалите полностью.
{uses Crt;}
const
  n=80;
  digits=['0','1','2','3','4','5','6','7','8','9'];
var
  s:string[80];
  i:integer;
begin
  {ClrScr;}
  Writeln('Введите текст (учитываются только 80 первых символов)');
  Readln(s);
  for i:=1 to n do
    if s[i] in digits then Write(s[i]);
  Writeln;
  for i:=1 to n do
    if not(s[i] in digits) then Write(s[i]);
  Writeln;
  {ReadKey}
end.

Тестовое решение:
Введите текст (учитываются только 80 первых символов)
Обь с притоком Иртыш 5410км, Амур с Аргунью 4440км, Лена 4400км, Енисей 4102км
5410444044004102
Обь с притоком Иртыш км, Амур с Аргунью км, Лена км, Енисей км

ветвление - это выполнение той или другой последовательности действий в зависимости от выполнения какого-либо условия

например, вспомним сказку А.С. Пушкина "Руслан и Людмила", а именно действия учёного кота:
Идет направо - песнь заводит,
Налево - сказку говорит
алгоритм для кота:
если идешь направо, 
    то пой песню,
    иначе говори сказку

другой пример из жизни:
если сделал уроки, 
     то отдыхай,
     иначе делай уроки

и ещё пример:
если натуральное число делится на два без остатка,
     то данное число чётное,
     иначе данное число нечётное