Задали на лето, информатика назовите более 10сот сетей, иногда информатка сходит с ума xd

Вк о н т а к т е, фейсбук, и н с т а г р а м м, твиттер, вайбер, ватсапп, с н а п с т е р, перископ, ютуб, скайп!

  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.