\\программа решения алгоритма на языке паскаль ABC.Net v3.3 сборка 1627
var a: array [1..2] of integer;
i, rez: integer;
begin
for i := 1 to 2 do
readln(a[i]);
rez := 0;
i:=1;
for i:=1 to 1 do
if (a[i] > a[i+1]) then rez := 1 else if (a[i] < a[i+1]) then rez := 2 else rez := 0; writeln(rez);
end.
Вот так, конструктор и игрушка - разные множества, а заводная игрушка - общий элемент, который входит в оба множества
Так как наибольшая цифра в числе-6, можно предположить, что основа системы счисления 7 или больше.
Program a_1;
var xa,ya,y,l,x,k:real;
begin
writeln('введите координаты точки А');
read(xa,ya);
writeln('введите значение коэффициента k и l ');
read(k,l);
if ya=k*xa+l then
begin
writeln('Точка А принадлежит прямой');
end
else
if ya>k*xa+l then
begin
writeln('Находится выше прямой');
end
else
if ya<k*xa+l then
begin
writeln('Находится ниже прямой');
end
<span>end. </span>