Исправить ошибки

[dragun4ik]

program set_;
uses crt;
const s3=[3,3,7,7];
var s1,s2,s4,i:integer;
a:array[1..10] of integer;
begin
clrscr;
writeln('vvedite element 1-go mnogecTBA ');
for i:=1 to 10 do
begin
read(a[i]);
s1:=s1+a[i];
end;
writeln('vvedite element 2-go mnogecTBA ');
for i:=1 to 10 do
begin
read(a[i]);
s2:=s2+a[i];
end;
s4:=s1+s2;
if s3 in s4 then writeln('prinadlegit') else
writeln('ne prinadlegit');
readln;
end.

[RUSt88]

хотя б че программа твоя делает написали бы, я уж не говорю о волшебном слове пожалуста

[VovanZ]

исправил синтаксические ошибки, что делает не понял....

program project1;
uses crt;
const s3=[3,7];
var s1,s2,s4,i:integer;
a:array[1..10] of integer;
begin
clrscr;
writeln('vvedite element 1-go mnogecTBA ');
for i:=1 to 10 do
begin
read(a[i]);
s1:=s1+a[i];
end;
writeln('vvedite element 2-go mnogecTBA ');
for i:=1 to 10 do
begin
read(a[i]);
s2:=s2+a[i];
end;
s4:=s1+s2;
if s4 in s3 then writeln('prinadlegit') else
writeln('ne prinadlegit');
readln;
end.

[VovanZ]

и кстати - почитай:
http://programmersforum.ru/announcement.php?f=31
http://programmersforum.ru/showthread.php?t=12081
http://programmersforum.ru/showthread.php?t=29883