Нужна помощь в контрольной по паскалю.

[Chaos666]

Паскаль изучал еще в школе и щас напрачь его забыл может кто поможет. Срочно. Надо успеть до сессии.
Если не сложно помогите.
Задачи.
Заарание спамибо.

[maladoy]

задание N2;
program fx;
uses crt;
var
x,y:real;
begin
clrscr;
writeln('vvedite x');
readln(x);
if x>3.14 then y:= cos(x)+2;
else y:=x+2*x*sin(3*x);
writeln(' y=', y);
end.

задание N3;
program func;
uses crt;
var
b,a,c,y:real;
m:integer;
begin
clrscr;
writeln('vvedite a');
readln(a);
writeln('vvedite b');
readln(b);
writeln('vvedite m');
readln(m);
if m<>0 then c:=(b-a)/m;
x:=a;
while x<b do begin
y:= sin(x)-cos(x)
x:=x+c;
writeln(' x=', x,' y=', y);
end;
readln;
end.

задание 4
var a:array [1..1000] of real;
n,i,s:integer;
begin
s:=0;
for i = 1 to n do begin // n-размер массива
if a[i]<0 then s:=s+1; // s счетчик отрицательных элементов
end;
writeln ('kol-vo otr elementov= ', s );
end.

[Chaos666]

Нужна помощь и по остальным задачам. очень срочно.

[alex_fcsm]

Задание 5

uses crt;
var s:string;
    i,j:integer;
    
begin
 readln(s);
 j:=0;
 for i:=1 to length(s) do
 begin
  if s[i]='.' then break;
  if s[i]='(' then inc(j)
     else if s[i]=')' then dec(j);
  if j<0 then break;
 end;
 if j=0 then writeln('Proper')
    else writeln('Wrong');
end.

[alex_fcsm]

Задание 6

uses crt;
var a,b,c:set of byte;
    x:byte;
    ch:char;
begin
a:=[];
b:=[];
Writeln('First');
 repeat
 readln(x);
 a:=a+[x];
 Writeln('Esc - Exit');
 ch:=readkey;
 until ch=#27;
Writeln('Second');
 repeat
 readln(x);
 b:=b+[x];
  Writeln('Esc - Exit');
 ch:=readkey;
 until ch=#27;
 c:=a*b;
 x:=5;
 if x in c then writeln('Yes')
    else writeln('No');
end.

[alex_fcsm]

Символьный файл

uses crt;
var f:text;
    a:char;
    i:integer;
    s:string;
    
procedure Find(y:char);
var x:char;
begin
assign(f,'c:\1.txt');
reset(f);
x:=#3;
i:=0;
while not(eof(f)) and (x<>y)  do
 begin
  read(f,x);
  inc(i);
 end;
 if x=y then writeln('first position of symbol ',y,' is ',i)
    else writeln('No symbol ',y,' in file');
 close(f);
end;

begin
readln(s);
assign(f,'c:\1.txt');
rewrite(f);
writeln(f,s);
close(f);
Find('x');
Find('c');
Find('z');
end.