Опишите функции, выполняемые данной программой:
var
Form1: TForm1;
a: array [0..4] of String;
n,i:integer;
procedure TForm1.Button1Click(Sender: TObject); - вопрос №3428234
begin
for i=0 to 4 do
a [i]:=(Memo1.lines[i]);
n:=Random(5);
Label2.Caption:=a[n];
end;
end.