Ие 1.
Магазин по продажи компьютерных аксессуаров продает товары, указанные в прайс-листе (не менее 15 аксессуаров).
Стоимость товара указана в долларах .
Если стоимость товара превышает 1000 рублей, покупателю предоставляется 5% скидка
Построить круговую диаграмму по стоимости.

Var
   A:array[1..13,1..13] of integer;
   i,j,n,M,k,C:integer;
Begin
Randomize;
N:=Random(13)+1;
M:=N div 2 +2;
WriteLn('Исходный массив(',N,'):');
For i:= 1 to N do
    Begin
    For j:= 1 to N do
        Begin
        A[i,j]:=random(N*2+1)-N;
        Write(A[i,j]:3,' ');
        End;
    WriteLn
    End;
k:=1;
if (N>2) then
   Begin
   C:=A[M,N-M+2];
   For i:= M to N do
       For j:= N-i+2 to i-1 do
           if A[i,j] <> C then k:=0;
   if k <> 0 then WriteLn('Да')
   else WriteLn('Нет')
   End
else WriteLn('В массиве нет элементов ниже главной и побочной диагоналей.');
End.

1.

Var s:string;

z,i,k:integer;

Begin

z:=0;

write('Введите строку: ');
readln(s);

k:=0;

For i:=1 to Length(s) do

if s[i]='!' then

Begin

inc(k);

End;

for i:=1 to Length(s) do

if s[i] = '!' then begin

write(i);

exit;

end;

if k<>0 then

writeln('Порядковый номер первого восклицательного знака = ', z);

if k = 0 then writeln('Восклицательных знаков нет!');

readln;

End.

2.

var
f: file of char;
c: char;
r,w: LongInt;
begin
Assign(f,'test.txt');
r:= 0;
w:= 0;
Reset(f);
while not EoF(f) do begin
Read(f,c);
Inc(r);
if c<>' ' then begin
Seek(f,w);
Write(f,c);
Inc(w);
Seek(f,r);
end end;
Seek(f,w);
Truncate(f);
Close(f)
end.