Решите в delphi 7 (бред не пишите плз)(без массива) группа студентов сдает экзамен. оценки формируются случайным образом от 2 до 5. напечатать кол-во полученых двок, трок, четверок, пятерок

  program project2; {$apptype console} uses  sysutils;     var i,x,y,z, dwa,tri,shetire,pati: integer; begin    writeln('student fediya=');     readln(i);     writeln('student sungat=');   readln(x);   writeln('student alex=');     readln(y);   writeln('student halif=');   readln(z);     case i of    2: inc(dwa);     3: inc(tri);     4: inc(shetire);     5: inc(pati);     end;     begin     case x of    2: inc(dwa);     3: inc(tri);     4: inc(shetire);     5: inc(pati);   end;   end;     begin       case y of    2: inc(dwa);     3: inc(tri);     4: inc(shetire);     5: inc(pati);     end;     end;     begin        case z of    2: inc(dwa);     3: inc(tri);   4: inc(shetire);     5: inc(pati);     end;       end;   writeln(#13#10'dwa: ', dwa, #13#10'tri: ', tri, #13#10'shetire: ', shetire, #13#10'pati: ', pati);   readln;     { todo -ouser -cconsole main : insert code here }end.

//язык с

#include< stdio.h>

void main()

{

  int i=0;   int a[i];

  for(i=1; i< =3; i++)

  {

    printf("[%d] = ",i);

    scanf("%d",& a[i]);

  }

  for(i=0; i< =3; i++)

  {

    if (a[i]< 0)

    {

      a[i]*=a[i];

    printf("-%d\n",a[i]);

    }

  }

}