Операторы for, repeat, while в Turbo Pascal.

[dimonishe]

Нужна помощь в написании 3-х программ в Turbo Pascal через операторы for, repeat, while.
Дано целое число n. Вычислить: 3+6+...+3*(n-1)+3*n.
заранее спасибо....

[Пепел Феникса]

либо наработки либо за 50р сделаю.(инфа в профиле есть)

[LeninNT]

сделаю за символическую плату, либо помогу советом

[Grag]

Сделаю бесплатно, за небольшую услугу с Вашей стороны...

Контакты:
e-mail: skiper@rol.ru
icq: 585281783
Skype: delmas61

[Stilet]

Ниче сложного.

  var e,k,n:integer;
begin
 n:=4;
 k:=0;for e:=1 to n do k:=k+3*e; writeln('FOR=',k);
 k:=0;e:=1;while e<=n do begin k:=k+3*e; inc(e);end; writeln('FOR=',k);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Repeat такой же как и While только с некоторым отличием, о котором автор узнает в методичке.