ну очень надо!
(см. фото)

ответ: Вот правильный (не уверен, но большинство ошибок думаю я исправил)

program dex;

uses

   ctr;

var ck,ct,summa:real;

     k,t:byte ;

begin

   writeln('Skolko kupili karandashei??');

   readln(t);  

   writeln('Skolko stoit odin karandash??');

   readln(ck);

   writeln('Skolko kupili tetradei??') ;

   readln(t);

   writeln('Skolko stoit odna tetrad??);

   readln(ct);

   summa:=k+ck+t*ct;

   writeln ('summa pokupki = ',summa:6:2 ' rub.');

   readln;

end.

я хз почему тут нужен модуль ctr

#include <iostream>

#include <cstdlib>

#include <ctime>

#include <vector>

#include <algorithm>

using namespace std;

int main() {

vector< vector<int> > arr;

arr.resize(8);

for (int i = 0; i < 8; ++i) {

 arr[i].resize(7);

}

for (int i = 0; i < 8; ++i) {

 for (int j = 0; j < 7; ++j) {

  arr[i][j] = rand();

  cout << arr[i][j] << " ";

  if (j == 6) {

   cout << endl;

  }

  }

}

swap(arr[3], arr[0]);

swap(arr[4], arr[7]);

cout << endl;

for (int i = 0; i < 8; ++i) {

 for (int j = 0; j < 7; ++j) {

  cout << arr[i][j] << " ";

  if (j == 6) {

   cout << endl;

  }

 }

}

}