Решить по паскалю 1. задан текст. удалить из текста знаки («») 2.дан текст, в котором слова отделяются пробелами, в конце стоит точка. поменять в тексте первое и последнее слово местами.

Var S:string;
i,N:integer;
begin
Readln(S);
N:=length(S);
i:=i+1;
While i<=n do
begin
If (S[i]='«') or (S[i]='»') then
begin
Delete(S,i,1);
i:=i-1;
n:=n-1;
end;
i:=i+1;
end;
Writeln(S);
end.

var S,A,B:string;
i,k,l,N:integer;
begin
Readln(S);
N:=length(S);
For i:=1 to N do
If S[i]=' ' then
begin
k:=i;
break;
end;
For i:=N downto 1 do
If S[i]=' ' then
begin
l:=i;
break;
end;
A:=Copy(S,1,k-1);
B:=Copy(S,l+1,N-l-1);
Delete(S,l,N-k);
Delete(S,1,k);
S:=B+' '+S+' '+A+'.';
Writeln(S);
end.

Const n=4;
var 
a:array[1..n,1..n] of integer;
i,j,b:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
   a[i,j]:=random(100);
   write(a[i,j]:4);
  end;
  writeln;
 end;
for i:=1 to n div 2 do
 for j:=i to n-i do
  begin
    b:=a[i,j];
    a[i,j]:=a[n-j+1,i];
    a[n-j+1,i]:=a[n-i+1,n-j+1];
    a[n-i+1,n-j+1]:=a[j,n-i+1];
    a[j,n-i+1]:=b;
  end;
writeln('Полученный массив:');
for i:=1 to n do
 begin
 for j:=1 to n do write(a[i,j]:4);
 writeln;
 end;
end.

Пример:
Исходный массив:
  57  32  69  17
  87  33  85  22
  89  80  59  13
  60  93  96  56
Полученный массив:
  60  89  87  57
  93  80  33  32
  96  59  85  69
  56  13  22  17

Найти цифры числа можно двумя
1. Если число короткое можно пользоваться div и mod, т.е. например, 1-я цифра 3-значного числа - это целое от деления на 100, третья цифра - остаток от деления на 10, чтобы найти вторую цифру надо сначала взять целое от деления на 10 и потом остаток от деления этого целого на 10.
2. Если число длинное или его длина неизвестна, то лучше преобразовать его в строку, найти длину строки и брать по одному символу с соответствующим индексом.

Блок-схема первого варианта на фото