С цикла for вычислите значение выражения 3*4 + 4*5 +... + 50*51

Cымсыз байланыс технологиялары жылдан жылға күштiрек таралуда. Жеке қарастырғанда сымсыз жергiлiктi желіні құрастыру үшiн IEEE 802.11x стандарттардың тобы туралы айтылған. Мұндай желiлердiң жасауы үшiн жабдықтың құны, сымды шешiмдердiң бағасымен теңесті, ал деректердi беру жылдамдығы аздап артта қалады, бiрақ бұл қандай болмасын қорқытпайды. Жергiлiктi желіні жасағысы келген қолданушының алдында сұрақ мазалайды: "Сымсыз" өткiзгiш немесе қарапайым жергілікті желі.

Сымсыз жергiлiктi желі технологиялардың стандартизациясымен IEEE 802.11x-шi тобы шұғылданатын болды. Мысалы, WLAN Wireless Local Area Network қысқартумен жиi кездеседi, немесе, сымсыз жергiлiктi желі.

Program test;
uses utils;
var
  n,i,sum,time:longint;
  flag:boolean;
begin
    readln(n);
    if n<2 then flag:=false;{Единица - не простое число}
    if n=2 then flag:=true;{2 - простое}
    if (n>2) and (n mod 2 <> 0) then begin{ после двойки простые числа только нечетные}
      for i:=1 to n do begin{проверяем что бы было только 2 делителя}
        sum:=sum+1;
      end;
      if sum=2 then flag:=true;
    end
    else flag:=false;
    if flag then writeln('Число простое') else writeln('Число НЕ простое');
    time:=milliseconds;
    writeln('Времени затрачено ',time:10,' ms.');
end.
Все проверки сделаны для сокращения времени работы программы.