Линейные алгоритмы. Первый уровень. Вычислите значение функции. Решите в четыре этапа этапа анализ условия задачи

2. математическая модель

3. блок-схема

и четвертый этап - скрин запущенной на выполнение программы с вашими исходными данными

//PascalABC.NET версия 3.4.0.1677 от 17.06.18

//Если программа не запускается, то обновите версию

begin

   var zarazheno := 1;

   var sum := zarazheno;

   for var i := 1 to 4 do

   begin

       zarazheno *= 10;

       sum += zarazheno;

       WritelnFormat('{2} Новозараженно = {0}, всего заражено = {1}', zarazheno, sum, i);

   end;

end.

Вывод

1 Новозараженно = 10, всего заражено = 11

2 Новозараженно = 100, всего заражено = 111

3 Новозараженно = 1000, всего заражено = 1111

4 Новозараженно = 10000, всего заражено = 11111

Procedure TForm1.Button1Click(Sender: TObject);
var
  x1,y1,x2,y2 : double;
  d1,d2 : double;
begin
  x1:= StrToFloat( Edit1.Text);
  y1:= StrToFloat( Edit2.Text);
  x2:= StrToFloat( Edit3.Text);
  y2:= StrToFloat( Edit4.Text);

  d1:=Sqrt(x1*x1+y1*y1);  //Теорема Пифагора
  d2:=Sqrt(x2*x2+y2*y2);  //Теорема Пифагора

  if (d1<d2) then
    Label1.Caption := 'Ближе точка с координатами X1,Y1'
  else
    if (d1>d2) then
      Label1.Caption := 'Ближе точка с координатами X2,Y2'
    else
      Label1.Caption := 'Точки находятся на одинаковом расстоянии'
end;

Для увеличения быстродействия алгоритма можно d1 и d2 рассчитывать так: 
d1:= x1*x1+y1*y1;
d2:= x2*x2+y2*y2;