Скажу честно, я в запросах текстовых не очень силён, но попробуйте названия, содержащие пробелы, как <<Название фирмы>> заключать в кавычки, например
SELECT* FROM "Название фирмы" WHERE "Название изделия" Not Like "*в*"
<em>TYPE</em>
<em> TPoint = Record x, y: Real; End;</em>
<em>VAR</em>
<em> a, b, c, d: TPoint;</em>
<em />
<em> Function Pl(a, b, c: TPoint): Real;</em>
<em> Var v1, v2: TPoint;</em>
<em> Begin</em>
<em> v1.x := a.x - b.x; v1.y := a.y - b.y;</em>
<em> v2.x := a.x - c.x; v2.y := a.y - c.y;</em>
<em />
<em> Pl := Abs(v1.x * v2.y - v1.y * v2.x) / 2;</em>
<em> End;</em>
<em />
<em>BEGIN</em>
<em> Read(a.x, a.y, b.x, b.y);</em>
<em> Read(c.x, c.y, d.x, d.y);</em>
<em />
<em> Write(Pl(a, b, c)+Pl(a, c, d));</em>
<em>END.</em>
Using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace pzn
{
class Program
{
public static void Main(string[] args)
{
int x = Convert.ToInt32(Console.ReadLine());
int y = Convert.ToInt32(Console.ReadLine());
int temp;
if (x<y)
{
x ^= y;
y ^= x;
x ^= y;
}
Console.WriteLine("x={0}, y={1}", x, y);
Console.ReadKey();
}
}
}
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
21.To(ReadInteger('D=')).Println
end.
<h3>D= 40</h3><h3>21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40</h3>
552/30=18,4(за 1 сек)
18,4*5=92
Ответ 92 кбайта