До іть сделать у скретч сузір'я лева с блоков рух та олівець

#include

using namespace std;

int n, m, mat[1000][1000], avg[1000];
//вместо 1000 пиши максимальный размер матрицы по условию

int main() {
cin >> n >> m;
int s;
int cmax = 0;
for(int i = 0; i < n; ++i) {
s = 0;
for(int j = 0; j < m; ++j) {
cin >> mat[i][j];
s += mat[i][j];
if (mat[i][j] > cmax) cmax = mat[i][j];
}
avg[i] = s / m;
}

int cnt;
for(int i = 0; i < n; ++i) {
cnt = 0;
for(int j = 0; j < m; ++ j) {
if (mat[i][j] <= avg[i]) ++cnt;
}

cout << “Для строки номер » << i << « ответ равен: » << cnt;
}
cout << “максимальный положительный элемент: ” << cmax;

return 0;
}

1)
var a,b,a1,b1:real;
var s,s1:real;
begin
WriteLn('Введите все катеты через пробел:');
Read(a,b,a1,b1);
s:=a/2*b;
s1:=a1/2*b1;
WriteLn(s);
WriteLn(s1);
if s = s1 then
WriteLn('Треугольники равновелики')
else if s>s1 then
WriteLn('Площадь первого треугольника больше на '+(s-s1))
else
WriteLn('Площадь второго треугольника больше на '+(s1-s));
end.

2)
var a,b:Integer;
var arr:array of char;
begin
arr:=ReadString().ToCharArray();
for var i:= 1 to 6 do
if(i<4) then
a+= strtoint(arr[i-1])
else
b+= strtoint(arr[i-1]);
if a=b then
WriteLn('Билет счастливый')
else
WriteLn('Билет не счастливый');
end.