ТЕ КТО РАЗБИРАЕТСЯ В ИНФОРМАТИКЕ ВАС Составьте таблицу «Посевные площади в России» по следующим данным:
В 1985 г. в России зерновые культуры занимали 68,1 млн. га, картофель
и овощи — 4,4 млн. га, кормовые культуры — 40,8 млн. га, технические
культуры — 5,1 млн. га. Вся посевная площадь в 1985 г. составляла 119,1
млн. га.
2)В 1995 г. зерновые культуры занимали 54,9 млн. га, картофель и овощи
— 4,3 млн. га, кормовые культуры — 36,4 млн. га, технические культуры —
6,5 млн. га, вся посевная площадь составляла 102,1 млн. га.
1. По приведенным сведениям постройте диаграмму распределения
посевных площадей по категориям для каждого года.
2. Постройте диаграмму для сравнения посевных площадей каждой
категории в разные годы.
3. Постройте диаграмму, отражающую изменение посевных площадей
по годам.
​

Это задача на вычисление суммы после уплаты налога.
Если s0  - исходная сумма, а р - процент налога, то ищется s=s0-s0*p/100.
Окончательная формула: s=s0(1-p/100)

const
  p=13;  { налог в процентах }
var
  s0,s:real;
begin
  Write('Введите сумму '); Read(s0);
  s:=s0*(1-p/100);
  { а теперь округлим сумму до копеек, т.е. до 0.01 }
  s:=Int(100*(s+0.005))/100;
  Writeln('Сумма после вычета налога ',p,'% составит ',s:0:2)
end.

Тестовое решение:
Введите сумму 2000
Сумма после вычета налога 13% составит 1740.00

Замечание. При целочисленной зарплате и целочисленном проценте налога оператор s:=Int(100*(s+0.005))/100; не нужен, поскольку в дробной части всегда будет не больше двух знаков. Но, поскольку о сумме зарплаты ничего не говорится, а дано только конкретное значение, которое понято как тестовый пример, было предложено решение с округлением.

О типах x и n неизвестно ничего, но по сложившейся традиции резонно предположить, что n - целое, x - вещественное. Представленная программа написана именно в таком понимании типов переменных.

var
  i,n:integer;
  x,p:double;
begin
  Write('Введите основание (x) и показатель степени (n): ');
  Read(x,n);
  if x=0 then p:=0
  else begin
    p:=1;
    for i:=1 to Abs(n) do p:=p*x;
    if n<0 then p:=1/p
  end;
  Writeln(x,'^',n,'=',p)
end.

Тестовые решения:

Введите основание (x) и показатель степени (n): 2 30
2^30=1073741824

Введите основание (x) и показатель степени (n): -3.35 9
-3.35^9=-53137.7624927636

Введите основание (x) и показатель степени (n): 18.3 -4
18.3^-4=8.9165251950717E-06