Информатика дегеніміз қандай бағдарлама кәсіпкерлік

Program pr;
Var a, b, c:array [1..20] of integer;
    i, c1, c2:integer;
begin
  for i:=1 to 20 do read(a[i]);
  for i:=1 to 20 do
    if i mod 2 = 0 then begin
      b[c1]:=a[i];
      Inc(c1);
    end
    else begin
      c[c2]:=a[i];
      Inc(c2);
    end;
  for i:=1 to 20 do write(b[i], );
  for i:=1 to 20 do write(c[i], );
end;

На питоне:
s1 = input("Bвeдитe 1 строку: ")
s2= input("Bвeдитe 2 строку: ")
if s1.find(s2)>=0: print(s2+" входит в "+s1)
else: print(s2+" не входит в "+s1)

Пример 1:
Bвeдитe 1 строку:
abcdefg
Bвeдитe 2 строку:
cde
cde входит в abcdefg

Пример 2:
Bвeдитe 1 строку:
abcdefg
Bвeдитe 2 строку:
ac
ac не входит в abcdefg

Procedure TForm1.Button1Click(Sender: TObject);
var i,kol,sum:integer; aver:real;
begin
  sum:=0;
  kol:=0;
  for i:=10 to 99 do
     if i mod 13=0
       then
        begin
          sum:=sum+i;
          kol:=kol+1;
        end;
  aver:=sum/kol;
  Label4.Caption:=IntToStr(kol);
  Label5.Caption:=IntToStr(sum);
  Label6.Caption:=FloatToStr(aver);
end;                            

Оформление: