1)Каков будет размер файла, если внутри него будет текст «Информатика»? 2) Опишите, как части ЦП, такие как ALU, CU, Cache, запускают программы калькулятора на компьютере

function isLucky(a: integer): boolean;
var s: string;
begin  
    str(a, s);  
    while length(s) < 6 do s := '0' + s;  
    isLucky := ord(s[1]) + ord(s[2]) + ord(s[3]) = ord(s[4]) + ord(s[5]) + ord(s[6])
end;
var 
    sTicket: string;    
    iTicket, i, err, sum: longint;
begin  
    write('Введите Ваш номер билета: ');  
    read(sTicket);  
    val(sTicket, iTicket, err);  
    for i := 1 to iTicket do    
        if isLucky(i) then inc(sum);  
    writeln('Выдано ', sum, ' счастливых билетов');  
    writeln('Осталось выдать ', 55251 - sum, ' счастливых билетов')
end.

Var
  s,s1:string;
  i,n,n1,k,p:integer;
begin
  Write('Введите строку: '); Readln(s); n:=Length(s);
  Write('Введите подстроку: '); Readln(s1); n1:=Length(s1);
  k:=0; i:=1;
  while i<=n-n1+1 do begin
    p:=pos(s1,s,i);
    if p>0 then begin Inc(k); i:=p+n1 end
    else i:=n; { для выхода }
    end;
  Writeln(s1,' встречается в ',s,' ',k,' раз(а)')
end.
 
Пример
Введите строку: Наша Таня громко плачет: уронила в речку мячик
Введите подстроку: ро
ро встречается в Наша Таня громко плачет: уронила в речку мячик 2 раз(а)