procedure TForm1.Button1Click(Sender: TObject); ; ...{ну или что-то такого}
var
  a,p,c:integer;
  i:real;
begin
{тут будет курсор...}
Label1 := 'vvdite kollichevstvo smorodini, zatem kolvo sahara valy, zatem veri';
a := edit1.text;
p := edit2.text;
c := edit3.text;
i:=(a/2)*3;
if (c=i) and (p=i) then Label2 := 'pravi obe' else
   if c=i then Label1 := 'prava valya' else
    if p=i then Label1 := 'prava vera' else
      Label1 := 'obe ne pravi';
end;

unit Unit1; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var a,p,c:integer;
  i:real;
begin
label1.caption:= 'vvdite kollichevstvo smorodini,zatem kolvo sahara valy, zatem veri';
a := strtoint(edit1.text);
p := strtoint(edit2.text);
c := strtoint(edit3.text);
i:=(a/2)*3;
if (c=i) and (p=i) then Label2.caption := 'pravi obe' else
   if c=i then Label2.caption := 'prava valya' else
    if p=i then Label2.caption := 'prava vera' else
      Label2.caption := 'obe ne pravi';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    label1.caption:= 'vvdite kollichevstvo smorodini,zatem kolvo sahara valy, zatem veri';
end;

end.

procedure TForm1.Button1Click(Sender: TObject);
var
  a:array [1..30] of integer;
  i,z:integer;
begin
  z = 0;
  randomize;
  for i:=1 to 30 do
   begin
    a[i]:=random(501)+500;
    memo1.clear;
    memo1.lines.add('a[',i,']=', inttostr(a[i]));
    if ((a[i] mod 5)=0) and ((a[i] mod 8)=0) then z:=z+a[i];
   end;
  memo1.lines.add(' ');
  memo1.lines.add(inttostr(z));
end;