умоляю, информатика.

Покупатель магазина получает скидку 3%, если у него есть дисконтная

карта или если общая стоимость его покупки превышает 5000 рублей (см. таб.4).

Определить, сколько заплатили покупатели за свои покупки.

P.S почему не работает формула ??

Попробуйте вызвать диспетчер : либо при одновременного нажатия клавиш ctrl+shift+esc, либо просто кликнув правой клавишей мыши по панели .
найдите процесс "проводник" или explorer), кликните по нему правой кнопкой мыши и нажмите "перезапустить".
если первый способ не , пробуем второй вариант: запустить пуск при power
для этого зайдите в "компьютер" -> "диск с" -> "windows" -> "system32" -> "windowspowershell" и запустите приложение powershell и в открывшемся окне приложения введите команду: get-appxpackage -allusers | foreach {add-appxpackage -disabledevelopmentmode -register “$($_.installlocation)\appxmanifest.xml”}
закройте приложение, проверьте - теперь меню "пуск" должно открыться.
если оба способа не , попробуйте создать нового пользователя. для этого нажмите "win+r", чтобы открыть панель введите слово "control", нажмите ок.
в открывшемся окне "все элементы панели " найдите "учетные записи пользователей", выберите " другой учетной записью" , затем "добавить нового пользователя".
таким образом можно создать нового пользователя, на которого перенести все файлы предыдущего пользователя, после чего просто удалить старую учетную запись.
если ничего не сработало - придется переустанавливать windows.

{1}

const
 n = 6;
var
 a:array[1..n,1..n] of integer;
 i,j:integer;
 t:integer;

begin
 for i := 1 to n do
 for j := 1 to n do
  read(a[i,j]);
 
 for j := 1 to n div 2 do
 for i := 1 to n do
  begin
  t := a[i,j];
  a[i,j] := a[i,n+1-j];
  a[i,n+1-j] := t;
  end;
 
 for i := 1 to n do
  begin
  writeln;
  for j := 1 to n do
    write(a[i,j],' ');
  end
end.

{2}

const
 n = 6;
var
 a:array[1..n,1..n] of integer;
 i,j:integer;
 t:integer;

begin
 for i := 1 to n do
 for j := 1 to n do
  read(a[i,j]);
 
 for i := 1 to n do
 for j := i+1 to n do
  begin
  t := a[i,j];
  a[i,j] := a[j,i];
  a[j,i] := t;
  end;
 
 for i := 1 to n do
  begin
  writeln;
  for j := 1 to n do
    write(a[i,j],' ');
  end
end.