Program oplata;
var a,b:integer;
begin
writeln('Введите стоимость ');
readln(a);
writeln('Введите оплату ');
readln(b);
if a=b then writeln('спасибо')
else if a>b then writeln('добавьте денег')
else writeln('возьмите сдачу')
<span>end.</span>
Таблица истинности (смотри прикрепленный скрин)
begin
var (N, a, x1, x2) := (12, 1.0, 2.0, 3.0);
PartitionPoints(x1, x2, N).
Tabulate(x -> Sin(Sqrt(a ** 3 + x)) / (14 + a * x)).
ForEach(p -> Writeln(p[0]:17:14, p[1]:20:16));
end.