В програмі Лазарус написати програму введення в поле1 та виведення в поле2 елементів заданого масиву 2 5 9 1 0 3 6 9.​

У Lazarus можна створити форму з двома полями Edit1, Edit2 і кнопкою Button1.

• У Edit1 користувач вводить номер елемента масиву від 1 до 8.

• У Edit2 програма виводить відповідний елемент заданого масиву: 2 5 9 1 0 3 6 9.

Наприклад, якщо ввести в Edit1 число 3, у Edit2 буде виведено 9.

Код для обробника натискання кнопки:

pascal
procedure TForm1.Button1Click(Sender: TObject);
const
  A: array[1..8] of Integer = (2, 5, 9, 1, 0, 3, 6, 9);
var
  n: Integer;
begin
  if TryStrToInt(Edit1.Text, n) then
  begin
    if (n >= 1) and (n <= 8) then
      Edit2.Text := IntToStr(A[n])
    else
      ShowMessage('Введіть номер елемента від 1 до 8.');
  end
  else
    ShowMessage('Потрібно ввести ціле число.');
end;

Повний вигляд модуля форми:

pascal
unit Unit1;

{$mode objfpc}{$H+}

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

procedure TForm1.Button1Click(Sender: TObject);
const
  A: array[1..8] of Integer = (2, 5, 9, 1, 0, 3, 6, 9);
var
  n: Integer;
begin
  if TryStrToInt(Edit1.Text, n) then
  begin
    if (n >= 1) and (n <= 8) then
      Edit2.Text := IntToStr(A[n])
    else
      ShowMessage('Введіть номер елемента від 1 до 8.');
  end
  else
    ShowMessage('Потрібно ввести ціле число.');
end;

end.

На формі можна підписати поля так:

Edit1 — Номер елемента
Edit2 — Значення елемента
Button1 — Вивести

Масив має такі номери елементів:

1 → 2
2 → 5
3 → 9
4 → 1
5 → 0
6 → 3
7 → 6
8 → 9