Вычислить и вывести на экран значение функции.

program tmp;
uses crt;
var a,b,x,y:real;
begin
clrscr;
writeln('vvedite x,a,b');readln(x,a,b);
y:=4*exp(-0.5*b)*sqr(cos(a*Pi*x));
writeln(y:4:4);
readkey;
end.

program tmp;
uses crt;
var a,b:real;
begin
clrscr;
writeln('vvedite a,b: ');readln(a,b);
if b<=a then b:=0 else begin
                       a:=a*2;
                       b:=b*2;
                       end;
writeln('a=',a:3:3,' b=',b:3:3);
readkey;
end.

program tmp;
uses crt;
var x,y,z,u1,u2:integer;
 
function max(a,b:integer):integer;
begin
if a>b then max:=a else max:=b;
end;
 
function min(a,b:integer):integer;
begin
if a<b then min:=a else min:=b;
end;
 
begin
clrscr;
writeln('vvedite x,y,z: ');readln(x,y,z);
u1:=max(x+y+z,x*y*z);
u2:=min(x,max(y,z));
writeln('u1=',u1,' u2=',u2);
readkey;
end.

program tmp;
uses crt;
const
     count=20;
     count1=count;
     count2=400;
var
   mas:array[1..count,1..count1] of integer;
   arr:array[1..count2] of integer;
   i,j,n,m,k,x,max:integer;
begin
clrscr;
randomize;
writeln('vvedite n,m: ');readln(n,m);
writeln;
writeln('Massiv:');
for i:=1 to n do begin
                 for j:=1 to m do begin
                                  mas[i,j]:=random(101)-50;
                                  write(mas[i,j]:4);
                                  end;
                 writeln;
                 end;
writeln;
k:=0;
for i:=1 to n do
    for j:=1 to m do if (odd(j)) and (mas[i,j]<0) then begin
                                                       k:=k+1;
                                                       arr[k]:=mas[i,j];
                                                       end;
max:=arr[1];
for x:=1 to k do if abs(arr[x])>abs(max) then max:=arr[x];
 
writeln('max: ',max);
readkey;
end.

program tmp;
uses crt;
const count=100;
var
   i,i1,n:integer;
   max:real;
   mas:array[1..count] of real;
begin
clrscr;
writeln('vvedite n: ');readln(n);
writeln;
for i:=1 to n do readln(mas[i]);
 
clrscr;
writeln('Ishodnii massiv:');
for i:=1 to n do write(mas[i]:3:2,' ');
writeln;
 
max:=mas[1];
i1:=0;
for i:=2 to n do if mas[i]>max then begin
                                    max:=mas[i];
                                    i1:=i;
                                    end;
for i:=1 to i1-1 do if not odd(i) then mas[i]:=mas[i]*max;
 
writeln('Poluchennii massiv:');
for i:=1 to n do write(mas[i]:3:2,' ');
 
readkey;
end.

program tmp;
uses crt;
const count=100;
var
   n,k:integer;
   sum:real;
   a:array[1..count] of real;
begin
clrscr;
write('vvedite n: ');readln(n);
sum:=0;
for k:=1 to n do begin
                 if odd(k) then a[k]:=(-1)/((2*k+1)*k) else a[k]:=1/((2*k+1)*k);
                 write(a[k]:3:3,' ');
                 sum:=sum+a[k];
                 end;
writeln;
writeln('Summa: ',sum:3:3);
readkey;
end.

var
a,b,f,s,x,sred:real;
n:integer;
begin
write('a=');
readln(a);
repeat
write('b=');
readln(b);
if b<=a then writeln('vvedite b zanovo');
until b>a;
write('n=');
readln(n);
s:=(b-a)/n;
x:=a;
writeln('x=       f=');
repeat
f:=x*sin(2*pi*x);
writeln(x:5:3,'  ',f:5:3);
x:=x+s;
sred:=sred+f;
until x>b;
sred:=sred/(n+1);
writeln('srednee=',sred:5:3);
readln;
end.