Нужно братику помочь с задачами

[Shuma]

Документ Microsoft Word.doc (((((((((((((((((

[alex_fcsm]

{2}
var l1,l2,l3:real
    a,b:real;

begin
writeln('Input L1');
readln(l1);
writeln('Input L2');
readln(l2);
writeln('Input L3');
readln(l3);
if l1>l2 then a:=l1*l2-l3/2.5
   else a:=2;
if l1=l3 then b:=15-sqrt(abs(l1))
   else b:=l1+2*l2;
writeln('a:'a:3:3);
writeln('b:'b:3:3);
end.
{3}
var s1,s2,s3,s:string;

begin
s:='No';
writeln('Input first label');
readln(s1);
writeln('Input second label');
readln(s2);
writeln('Input third label');
readln(s3);
if s1=('ВАЗ2101')or(s2='ВАЗ2101')or(s3='ВАЗ2101') then s:='Yes';
writeln(s);
end.
{4}
var a:array[1..9] of integer;
    sum,mult,x:real;
    i:integer;
begin
randomize;
for i:=1 to 9 do
  begin
  a[i]:=random(10)+1;
  write(a[i],' ');
  end;
writeln;
sum:=0;mult:=1;
for i:=1 to 9 do
 begin
  sum:=sum+sqr(a[i]);
  mult:=mult*a[i];
 end;
x:=(sum+mult)/9;
writeln(x:3:2);
end;

[alex_fcsm]

var z:real;
    sum,eps,x:real;
    i:integer;
function fact(y:integer):real;
begin
if y=1 then fact:=1
   else fact:=y*fact(y-1);
end;

begin
writeln('input z');
readln(z);
writeln('Input ksi');
readln(eps);
sum:=0;i:=1;
repeat
inc(i);
x:=sqr(z+2)/fact(i);
if i mod 2=0 then sum:=sum+x
   else sum:=sum-x;
until x<=eps;
writeln('Summa ',sum:3:3);
end.

[alex_fcsm]

uses crt;
var x,y:array[1..15] of real;
    min,sum:real;
    i:integer;
begin
clrscr;
randomize;
write('X');
for i:=1 to 15 do
 begin
  x[i]:=(random(5)+1)/(random(5)+1);
  write(x[i]:6:2);
 end;
min:=x[1];
 for i:=2 to 15 do
  if x[i]<min then min:=x[i];
sum:=0;
writeln;
write('Y');
for i:=1 to 15 do
 begin
  y[i]:=sqr(x[i])*x[i]/min;
  write(y[i]:6:2);
  if i mod 2 = 1 then sum:=sum+y[i];
 end;
writeln;
writeln('Summa ',sum:4:3)
end.