Графики в Делфи!

[Stilet]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a1,d,n:integer;
function S(n:integer):real;
Begin
  if n = 1 then
    S := a1
  else
    S:= S(n-1) +a1+d*(n-1);
End;
begin
 a1:=2;d:=3;
 write(s(3));
 readln;
end.

Но на будущее не смешивай темы - закрою.

[Anton5]

Я понял,извините. Только это консольная версия, а нас заставляют выполнять только на форме.... И вот как быть?

[romlo]

Всё просто. Кидаешь на форму edit и button со вкладки standart. Кликаешь дважды по кнопке, сюда пишешь код.
Над begin пишешь var и объявляешь все переменные.