На які три питання спробував відповісти Короленко у своїй повісті "Сліпий музикант"?​

21,24,27,30,33,36,39,42,45,48

var

a,b: real;

begin

readln(a,b);

if (a> 0) or (b< -2) then

writeln('истинно')

else

writeln('ложно');

end.

var

a: array[1..31] of real;

i,k: integer;

min: real;

begin

min: =50;

for i: =1 to 31 do

begin

readln(a[i]);

if a[i]< min then min: =a[i];

end;

k: =0;

for i: =1 to 31 do

if a[i]=min then k: =k+1;

writeln(k);

end.

var

x,y: real;

i,n: integer;

begin

n: =1;

x: =1;

y: =1;

for i: =1 to 5 do

begin

n: =n*i;

x: =-1.5*x;

y: =y*(x+1/n);

end;

writeln(y: 15: 5);

end.