Как создать html-страницу со своими биографическими данными, фоном страницы, заголовками и элементами форматирования текста в блокноте?

Var       k: integer;       a, s: real; begin       write('начальная стоимость: ');       readln(a);       {write('число проданных газет:   ');       readln(k); }       k : = 200;             if k < = 50 then s : = k * a       else       begin               s : = 50 * a;               s : = s + (k - 50) * a * 1.2;       end;       writeln('выручка составила  ', s, ' руб.'); end.

// pascal var   a: array [1..16] of integer;   i: integer; b: boolean; begin   randomize;   for i : = 1 to 16 do a[i] : = random(-20, 20);   for i : = 1 to 16 do       if a[i] = 0 then begin           if b then write(', ');           write(i, '-й ');           b : = true;       end;   if b then writeln('элемент(ы) равен(ны) нулю') else writeln('в массиве нету элементов, равных нулю.'); end.