Компьютер спрашивает: "сколько вам лет? ". если ответ меньше 14, то отвечает "вам еще рано получать паспорт". если ответ больше или равен 14 отвечает "поздравляю! вы гражданин россии! ".

Круто! А в чем собственно вопрос???

Var a: integer
writeln('Сколько вам лет?');
readln(a);
if (a>=14) then writeln('Поздравляю! Вы гражданин Росии')
else writeln('Вам ещю рано получать паспорт);
readln;
end.
как то так, только я точно не помню, если что не правельно выправиш

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

function Pow(x,y:BigInteger):BigInteger;
begin
  Result:=x;
  for var i:=int64(2) to int64(y) do Result*=x
end;

begin
  var x,y:integer;
  Write('Введите натуральные х и у: '); Read(x,y);
  if (x<=0) or (y<=0) then begin
    Writeln('Неверный ввод'); Exit
    end;
  if x=1 then Writeln('Результат: ',y+1)
  else begin
    var x1:=Range(2,x).Aggregate(BigInteger(1),(a,b)->a*b);
    Writeln('Результат ',Pow(x,y)+Pow(y,x1))
    end
end.

Пример
Введите натуральные х и у: 5 8
Результат 2348542582773833227889480596789337027375682548908319870707290971532209025114608443463698998384768703032325601

Узнаем количество символов данной статьи. Для этого умножим 40*32*16.

Пока мы просто составили выражение, перемножать не будем.

Каждый символ кодируется 8 битами, следовательно информационный объём статьи будет равен 8*40*32*16.

Перемножать пока, опять же, не будем. Чтобы ответ не был таким большим и пугающим, переведём всё а килобайты. Для этого полученное ранее выражение разделим на 8 (чтобы перевести в байты), затем на 1024 (чтобы перевести в килобайты).

Получаем выражение:
(8*40*32*16)/(8*1024)

Восьмёрки в числителе и знаменателе сокращаем. Получается:
(40*32*16)/1024

Сократим числитель и знаменатель на 32. Получаем:
(40*16)/32

16 и 32 тоже можно сократить до 1 и 2:
40/2=20

ответ: 20 килобайтов.