решите задание в delphi 7 (бред не пишите плз)(без массива)группа студентов

Массив здесь не нужен, а Дельфи потребует мучений с формой... вот и все отличие от обыденного паскаля...

Заводите переменные k2, k3,k4,k5, обнуляете их, а потом в цикле читаете еще одну отметку и увеличиваете на 1 значение переменной, соответствующее отметке.

var student : byte; two : byte = 0; three : byte = 0; four : byte = 0; five : byte = 0; students: array of byte;

begin Randomize; SetLength(students, Random(100) + 1); for student := Low(students) to High(students) do begin  students[student] := 2 + Random(4);  Write(students[student], 32);  case students[student] of   2: Inc(two);   3: Inc(three);   4: Inc(four);   5: Inc(five);  end;

end; Finalize(students); WriteLn(1310'two: ', two, 1310'thee: ', three, 1310'four: ', four, 1310'five: ', five); ReadLn;end.

Вы, малюсенько что массив использовали в собственном ответе, так еще и тут написали его... ясно же обозначено: "без массивов"

напишите тогда правельно

Пусть пишут те, у кого Дельфи установлен.

 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(1310'dwa: ', dwa, 1310'tri: ', tri, 1310'shetire: ', shetire, 1310'pati: ', pati);
 ReadLn;
    TODO -oUser -cConsole Main : Insert code here end.