Программирование по информатике

var
 n,i,s,s2:integer;
 a:array[1..100] of integer;
begin
 readln(n);
 readln(a[1]);
 for i:= 2 to n do begin
   readln(a[i]);
   s:=s + a[i];
 end;
 s2:= a[1];
 i:=2;
 while(s2 <> s) and (i <> n)do begin
   s2:= s2 + a[i];
   s:= s - a[i];
   inc(i);
 end;
 if i <> n then
 writeln('sum = ',s,' k = ',i-1);
end.

var
 s,s1:string;
begin
 readln(s);
 s:= s + ' ';
 repeat
   s1:= copy(s,1,pos(' ',s)-1);
   delete(s,1,pos(' ',s));
   if pos(s1,s) > 0 then begin
     writeln(s1);
     repeat
     delete(s,pos(s1,s),pos(' ',s)-1);
     until(pos(s1,s) = 0);
   end;
 until(length(s) = 0);
end.

var
 s,s1,s2:string;
begin
 readln(s);
 s:= s + ' ';
 repeat
   s1:= copy(s,1,pos(' ',s)-1);
   delete(s,1,pos(' ',s));
   s2:= s2 + s1 + ' ';
   while pos(s1,s) > 0 do
   delete(s,pos(s1,s),pos(' ',s)-1);
 until(length(s) = 0);
 writeln(s2);
end.

uses crt;
type zap1=record
    art:char;
    im:string[10];
    kol:integer;
    cen:integer;
end;
var tkan:string;
sved:zap1;
sprav:file of zap1;
begin
assign(sprav,'d:\SETUP\tp7\tp7\BIN\File_1.txt');
rewrite(sprav);
while not eof(sprav) do begin
read(sved.art);
with sved do begin
while art<>'***' do begin
writeln('artikul tkani');
readln(art);
writeln('imya tkani');
readln(im);
writeln('kolichestvo tkani');
readln(kol);
writeln('cena tkani');
readln(cen);
end;
end;
end;
close(sprav);
end