Завдання з інформатики, до ть будь ласка ​

Var
d:integer;
const
a=650;
b=1;
c=1000;
begin
write('Введите объём видеофайла в мегабайтах: ');
readln(d);
if d>a then write('Видеофайл не помещается на  носитель информации"А"!',#10) else
writeln('Памяти хватает для записи на носитель "А"! ',#10);
if d>b then write('Видеофайл не помещается на  носитель информации"B"!',#10) else
writeln('Памяти хватает для записи на носитель "B"! ',#10);
if d>c then write('Видеофайл не помещается на данный носитель информации"С"!',#10) else
writeln('Памяти хватает для записи на носитель "C"! ',#10);
readln;
end.

в фото

Объяснение:

#include <stdio.h>

#include <stdlib.h>

#define N   30

int main()

{

   int massiv[N];

   for(int i = 0; i < N; i ++)

   {

       massiv[i] = rand()%20 - 10;

       printf("massiv[%i] = %i\n", i, massiv[i]);

   }

   for(int i = 0; i < N/2; i ++)

   {

       int element_naprotiv = N-1-i;

       int znaki = (massiv[i]> 0) + (massiv[element_naprotiv] > 0);

       if(znaki != 1)

           printf("massiv[%i] = %i, massiv[%i] = %i, summa = %i\n", i, massiv[i], element_naprotiv, massiv[element_naprotiv], massiv[i] + massiv[element_naprotiv]);

   }

   return 0;

}