Это вы выдумали?
По списку,либо выбрав по оценкам,рандомом.(если вы ЭТО имели ввиду)
а так,0.3 Кб (вроде)
Program n_1;
var r, d:integer;
begin
r:=2; d:=r*2;
writeln('Диаметр круга равен ',d);
end.
Когда нет условия выхода из цикла или используется вечный цикл (например, while(true) ).
Var n, i, sum: integer;
begin
read(n);
sum := 0;
for i:=1 to n do
sum := sum + (2*i-1);
writeln(sum);
end.
Сбоку должен быть переключатель вкл выкл