Написать программу решения ребуса: КУБ=(К + У + Б)^3 . При решении ребусов
одинаковым буквам соответствуют одинаковые цифры.
паскаль

// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (a,b):=ReadReal2('Введите через пробел a,b:');
  Writeln(a,' + ',b,' = ',a+b);
  Writeln(a,' - ',b,' = ',a-b);
  Writeln(a,' * ',b,' = ',a*b);
end.

Пример
Введите через пробел a,b: -3.6 2.15
-3.6 + 2.15 = -1.45
-3.6 - 2.15 = -5.75
-3.6 * 2.15 = -7.74

begin
  var n:=ReadInteger('n=');
  var a:=ReadReal('a=');
  var p:=1/a;
  var s:=p;
  for var i:=1 to n do begin p/=(a+i); s+=p end;
  Writeln(s)
end.

Пример
n= 6
a= 2.4
0.57315329840095

begin
  var n:=ReadInteger('n=');
  var s:=ReadSeqReal('Введите '+n+' чисел:',n).Select(x->Abs(x)).Sum;
  Writeln('Сумма модулей равна ',s)
end.

Пример
n= 6
Введите 6 чисел: -4.35 2.63 11 -8.1 0 -6.4
Сумма модулей равна 32.48

1.
var
  s: string;
  i, count: integer;
begin
  writeln('Vvedite stroky: ');
  readln(s);
  for i := 1 to length(s) - 2 do
    if copy(s, i, 3) = 'abc' then
      count := count + 1;
  writeln('Kol-vo: ', count);
end.
2.
var
  s1, s2: string;
  i, len1, len2: integer;
begin
  writeln('Vvedite stroky 1: ');
  readln(s1);
  writeln('Vvedite stroky 2: ');
  readln(s2);
  len1 := length(s1);
  len2 := length(s2);
  if len1 > len2 then writeln('1 stroka dlinnee')
  else if len1 < len2 then writeln('2 stroka dlinnee')
  else writeln('dlini strok ravnie')
end.
3.
var
  s1, s2, s3: string;
begin
  writeln('Vvedite stroky 1: ');
  readln(s1);
  writeln('Vvedite stroky 2: ');
  readln(s2);
  s3 := s1[1] + s1[2] + s2[1] + s2[2];
  writeln('Novaja stroka: ', s3);
end.