сделать проект в приложении скретч он называется "Кот и телевизор" ​

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 var   a, b, c, x, y, z: integer;   Summa1, Summa2: integer; begin   write('Яблоки(руб/кг): ');   readln(a);   write('Груши(руб/кг): ');   readln(b);   write('Апельсины(руб/кг): ');   readln(c);   writeln;   writeln('Понедельник: ');   write('Продано кг яблок: ');   readln(x);   write('Продано кг груш: ');   readln(y);   write('Продано кг апельсинов: ');   readln(z);   Summa1:=x*a+y*b+z*c;   writeln;   writeln('Вторник: ');   write('Продано кг яблок: ');   readln(x);   write('Продано кг груш: ');   readln(y);   write('Продано кг апельсинов: ');   readln(z);   Summa2:=x*a+y*b+z*c;   writeln;   writeln('Понедельник: ', Summa1, ' руб; Вторник: ', Summa2, ' руб'); end.

// 1.

var
a,b,c: real;

begin
writeln('Введите два катета a,b: ');
readln(a,b);
writeln('Введите гипотенузу c: ');
readln(c);
 if sqr(c) = sqr(a) + sqr(b) then writeln('Треугольник прямоугольный.')
 else writeln('Треугольник не прямоугольный.');
end.

// 2.

var
A: array [1..100] of integer;
x,i,n: integer;

begin
writeln('Введите кол-во чисел N: ');
readln(n);
writeln('Введите числа: ');
for i:= 1 to n do readln(A[i]);
writeln('Вы ввели: ');
for i:= 1 to n do write(A[i]:4);
writeln;
for i:= 1 to n do if A[i] > -1 then x:=x+1;
writeln('Среди них положительных: ',x);
end.