Построить таблицу соответствий между мерами

uses crt;
var a,b,i:integer;
     litr,sek:real;
begin
clrscr;
Writeln('Vvedit pochatkove znachenja');
readln(a);
Writeln('Vvedit kinzeve znachenja');
readln(b);
for i:=a to b do
begin
sek:=a*0.0347;
litr:=a*3.785;
Writeln('hoalon=',a,'sek=',sek:2:3,'Litru=',litr:2:3);
end;
readkey;
 
 
end.

uses crt;
var a,b,i:integer;
     litr,sek:real;
begin
clrscr;
Writeln('Vvedit pochatkove znachenja');
readln(a);
Writeln('Vvedit kinzeve znachenja');
readln(b);
for i:=a to b do
begin
sek:=a*0.0347;
litr:=a*3.785;
Writeln('------------------------------------');
Writeln('|halon=',a,'|','sek=',sek:2:3,'|','Litru=',litr:2:3,'|');
end;
readkey;
end.

uses crt;
var a,b,i:integer;
     litr,sek:real;
begin
clrscr;
Writeln('Vvedit pochatkove znachenja');
readln(a);
if a<0 then
begin
writeln('Vvedit a>0');
readln(a);
end;
Writeln('Vvedit kinzeve znachenja');
readln(b);
if b<0 then
begin
writeln('vvedit b>0');
readln(b);
end;
for i:=a to b do
begin
sek:=i*0.0347;
litr:=i*3.785;
Writeln('------------------------------------');
Writeln('|halon=',i,'|','sek=',sek:2:3,'|','Litru=',litr:2:3,'|');
end;
readkey;
end.

uses crt;
var n,kil,i:integer;
 x,y,h,sum:real;
begin
clrscr;
writeln('vvedit x');
readln(x);
n:=7;
sum:=0;
kil:=0;
h:=0;
x:=1;
writeln('x=         y=');
while  x<=n do
begin
y:=cos(2.1*x)*sin(abs(x))/0.15-5.8;
h:=0.1*7;
x:=x+h;
writeln(x:2:2,'______',y:2:2);
if y>0 then sum:=sum+y
else inc(kil);
end;
writeln('Suma dodatnih=',sum:2:3);
writeln('Kilkist vidjemnyh=',kil);
readkey;
end.

uses crt;
var n,kil,i,l:integer;
 x,y,h,sum,m:real;
begin
clrscr;
writeln('vvedit  шукане значення');
readln(m);
n:=7;
sum:=0;
kil:=0;
h:=0;
x:=1;
writeln('x=         y=');
while  x<=n do
begin
y:=cos(2.1*x)*sin(abs(x))/0.15-5.8;
h:=0.1*7;
x:=x+h;
writeln(x:2:2,'______',y:2:2);
if y>0 then sum:=sum+y
else inc(kil);
end;
writeln('Suma dodatnih=',sum:2:3);
writeln('Kilkist vidjemnyh=',kil);
if m=y then inc(l);
end;
if l=0 then writeln('значення нема') 
else writeln('значення ',m,'знайдено');
readkey;
end.

uses crt;
var n,kil,i,l,j:integer;
 x,y,h,sum,m:real;
  a:array [1..100]of real;
begin
clrscr;
n:=7;
sum:=0;
kil:=0;
h:=0;
x:=1;
writeln('x=         y=');
while  x<=n do
begin
y:=cos(2.1*x)*sin(abs(x))/0.15-5.8;
h:=0.1*7;
x:=x+h;
a[i]:=y;
inc(i);
writeln(x:2:2,'______',y:2:2);
if y>0 then sum:=sum+y
else inc(kil);
end;
writeln('Suma dodatnih=',sum:2:3);
writeln('Kilkist vidjemnyh=',kil);
writeln('vvedit  znachenja dla posyky');
readln(m);
for i:=0 to j do
begin
if m=a[i] then inc(l);
end;
if l=0 then writeln('neznajdeno')
else writeln('значення ',m,'znajdeno');
readkey;
end.