Исправить ошибку в написании программы. В Паскале пишет ожидался идентификатор ,но " " обнаружено
var
i, s, n: integer;
begin
readln(n);
s := 0;
i := 0;
while i < n do
begin
i := i + 1;
s := s + i;
end;
writeln('Цикл с предусловием: ', s);
s := 0;
i := 1;
repeat
s := s + i;
i := i + 1;
until i > n;
writeln('Цикл с постусловием: ', s);
s := 0;
for i := 1 to n do
s := s + i;
writeln('Цикл с переменной: ', s);
end.

Думаю, имелось в виду не алгоритм, а программу, так что вот(если имелось в виду именно алгоритм, то напишите в лс):
#include <iostream>
#include <math.h>

using namespae std;

int main()
{
  double x1,y1,x2,y2;
  cin>>x1>>y1>>x2>>y2;
   double m1 = sqrt(x1*x1+y1*y1);
   double m2 = sqrt(x2*x2+y2*y2);
  if(m1 < m2) cout << "Ближе A" << endl;
  else cout << "Ближе B" << endl; /*с учетом иррациональности расстояния между точками почти в большинстве случаев, и неточности плавающих вычислений на компьютере можно пренебречь случаем, когда они равноудалены.*/
 char c; cin >> c;
 return 0;
}

Переносные, компактные и весьма емкие по памяти, по-сравнению с дискетами, мобильные носители информации, в народе называемые просто флешками, получили очень широкой распространение. В настоящее время флеш-носители используются в коммуникаторах, в фотоаппаратах, в некоторых моделях сотовых телефонах и просто как устройство, предназначенное для хранения и переноса информации. Вслед за широким применением флеш-устройств участились и случаи потери информации на них. Связано это либо с поломкой самого устройства, либо с нарушением файловой структуры, либо по вине самого пользователя.
Вне зависимости от типа (формата) устройства: CompactFlash, SD, MMC, MemoryStick, USB-Flash для их производства используются микросхемы памяти, построенные по NAND-технологии (форм-фактор TSOP, WSOP, BGA), что позволяет конструктивно работать непосредственно с самой микросхемой памяти через специальное устройства с дальнейшей расшифровкой полученных результатов. Таким образом, необходимое и достаточное условие для восстановления информации с флеш-носителей – сохранение целостности самой микросхемы памяти и её содержимого.