Скажіть в чому помилка коду ів Задача:Іван Петрович у нових штанах сів на щойно пофарбовану табуретку. На його штанах з'явилась квадратна пляма з довжиною сторони a см. Виявилось, що в хімчистку беруть одяг, плями на якому не більші S см2. Визначити, чи вдалось Іванові Петровичу врятувати свої штани? Program Z1;
Var a,S,n:real;
Begin
Writeln('Чи вдалося врятувати штани');
Readln(a,S,n);
a:=2;
s:=2*2;
If a<=S then writeln ('Врятував') else writeln ('Не врятував');
If a=2 then Writeln ('Не врятував');
Writeln('S',S:2:4);
End.

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

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;

  }

 }

}

}