Яке значення матиме логічний вираз a>8 , якщо a=5? a = 10

Вариант с процедурой Delete

var
  s:string;
  k:integer;
begin
  Write('Введите слово: '); Readln(s);
  Write('Какую по порядку букву удалить? '); Read(k);
  Delete(s,k,1);
  Writeln('Результат: ',s)
end.

Вариант с функцией Copy

var
  s:string;
  k,n:integer;
begin
  Write('Введите слово: '); Readln(s);
  Write('Какую по порядку букву удалить? '); Read(k);
  n:=Length(s);
  s:=Copy(s,1,k-1)+Copy(s,k+1,n-k);
  Writeln('Результат: ',s)
end.

Вариант с циклами

var
  s,s1:string;
  k,i,n:integer;
begin
  Write('Введите слово: '); Readln(s);
  Write('Какую по порядку букву удалить? '); Read(k);
  n:=Length(s);
  s1:='';
  for i:=1 to k-1 do s1:=s1+s[i];
  for i:=k+1 to n do s1:=s1+s[i];
  Writeln('Результат: ',s1)
end.

Тестовое решение (одинаково для всех вариантов):
Введите слово: Таракан
Какую по порядку букву удалить? 4
Результат: Таркан

Блок-схемы всех вариантов находятся во вложениях

Var
S:real;
N:integer;
Begin
//Первый
S:=0;
For N:= 1 to 50 do
    S:=S+1/N;
WriteLn('S = ',S);

//Второй
S:=0;
N:=0;
Repeat
N:=N+1;
S:=S+1/N;
Until N = 50;
WriteLn('S = ',S);

//Третий
S:=0;
N:=0;
While N<>50 do
   Begin
   N:=N+1;
   S:=S+1/N;
   End;
WriteLn('S = ',S);

End.

Var
X:real;
Begin
X:=-3;
Repeat
WriteLn(X:4:1,'   ',((3*X*X-2)/4):6:3);
X:=X+0.2;
Until X>3;
End.

Var
A:real;
i,k:integer;
Begin
k:=0;
WriteLn('Введите 10 чисел');
For i:= 1 to 10 do
    Begin
    Read(A);
    if A<0 then k:=k+1;
    End;
WriteLn('Кол-во отрицательных: ',k);
End.