Программа, выводящая в обратном порядке все числа от 1 до 50, которые кратные 4 и все простые числа от 1 до 50

var
  i, j, k: byte;
 
begin
  Writeln('Кратные 4:');
  for i := 50 downto 1 do
    if i mod 4 = 0 then
      Write(i, ' ');
  Writeln;
  Writeln('Простые:');
  for i := 50 downto 2 do
  begin
    k := 0;
    for j := 2 to Round(Sqrt(i)) do
      if i mod j = 0 then
        k := 1;
    if k = 0 then
      Write(i, ' ');
  end;
end.

uses
  vcl;
 
//$VCLDESIGN+
var
  Form1: Form;
  TextLabel1: TextLabel;
  TextLabel2: TextLabel;
  TextLabel3: TextLabel;
  TextLabel4: TextLabel;
  //$VCLDESIGN-
  i, j, k: byte;
 
procedure InitControls;
begin
  Form1 := Form.Create(0, 0, 484, 190);
  Form1.InitControl(True, False, alNone, crDefault, clBtnFace, 'Форма1', '');
  TextLabel1 := TextLabel.Create(Form1, 8, 8, 56, 13);
  TextLabel1.InitControl(True, True, alNone, crDefault, clBtnFace, 'Кратные 4:', '');
  TextLabel2 := TextLabel.Create(Form1, 8, 32, 449, 13);
  TextLabel2.InitControl(True, True, alNone, crDefault, clBtnFace, '', '');
  TextLabel3 := TextLabel.Create(Form1, 8, 96, 48, 13);
  TextLabel3.InitControl(True, True, alNone, crDefault, clBtnFace, 'Простые:', '');
  TextLabel4 := TextLabel.Create(Form1, 8, 116, 441, 17);
  TextLabel4.InitControl(True, True, alNone, crDefault, clBtnFace, '', '');
  Form1.Position := poScreenCenter;
  Form1.Show;
end;
 
begin
  InitControls;
  for i := 50 downto 1 do
    if i mod 4 = 0 then
      TextLabel2.Caption := TextLabel2.Caption + IntToStr(i) + '  ';
  for i := 50 downto 2 do
  begin
    k := 0;
    for j := 2 to Round(Sqrt(i)) do
      if i mod j = 0 then
        k := 1;
    if k = 0 then
      TextLabel4.Caption := TextLabel4.Caption + IntToStr(i) + '  ';
  end;
end.

uses FormsABC;
var i:integer;
    b:button; 
    s:string;
begin
MainForm.Title := '100 кнопок';
MainForm.SetSize(820,350);
MainForm.CenterOnScreen;
for i:=1 to 100 do
 begin
  s:='Button'+IntToStr(i);
  b:=new button(s);
 end;
end.