Найти решение системы уравнений вида A1•x + B1•y = C1, A2•x + B2•y = C2, заданной своими коэффициентами A1, B1, C1, A2, B2, C2

var
x,y,a1,b1,c1,a2,b2,c2: real;
begin
writeln('Введите коэффициенты ,a1,b1,c1,a2,b2,c2 ');
readln(a1);
readln(b1);
readln(c1);
readln(a2);
readln(b2);
readln(c2);
x:= (c2-(b2*c1))/((b1*a2)-a1);
y:=(c1-(a1*x))/b1;
writeln('решение системы ');
writeln('х = ',x);
writeln('y = ',y);
end;

var a,x:integer;
begin
a:=654;
x:=a div 100+(a div 10 mod 10)*10+(a mod 10)*100;
write('x=',x);
readln
end.

var a,b,c,d:byte;
begin
repeat
writeln('Положение коня:');
write('a=');readln(a);
write('b=');readln(b);
until (a in [1..8])and(b in [1..8]);
repeat
writeln('Поле для хода:');
write('c=');readln(c);
write('d=');readln(d);
until (c in [1..8])and(d in [1..8]);
if ((abs(a-c)=1)and(abs(b-d)=2))or((abs(a-c)=2)and(abs(b-d)=1))then
write('Конь может за один ход попасть на заданное поле')
else write('Конь не может за один ход попасть на заданное поле');
readln
end.

const n=10;
var a:array[1..n] of integer;
    i,k,j,max:integer;
begin
writeln('Введите ',n,' элементов массива:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
writeln('Массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
max:=0;
i:=1;
while i<=n do
if a[i] mod 2<>0 then
  begin
   k:=0;j:=i;
   while (j<=n)and(a[j] mod 2<>0) do
    begin
     k:=k+1;
     j:=j+1;
    end;
   if k>max then max:=k;
   i:=i+k+1;
  end
else i:=i+1;
writeln('Наибольшее число нечетныхных подряд=',max);
readln
end.

uses crt;
const max=16;{больше на экран не войдет}
var tabl:array [1..max,1..max] of byte;
    sum,nom:array[1..max] of byte;
    n,m,i,j,k:byte;
begin
clrscr;
repeat
write('Введите число команд не более ',max,' n=');
readln(n);
until n in [1..max];
randomize;
{заполняем случайно верхнюю часть таблицы 0,1,3}
for i:=1 to n-1 do
for j:=i+1 to n do
 repeat
  tabl[i,j]:=random(4);
 until tabl[i,j] in [0,1,3];
{заполняем симметрично нижнюю часть таблицы}
for i:=2 to n do
for j:=1 to i-1 do
 begin
  if tabl[j,i]=1 then tabl[i,j]:=1
  else tabl[i,j]:=3-tabl[j,i];
 end;
{на главную диагональ запишем ноли}
for i:=1 to n do
tabl[i,i]:=0;
Writeln('Таблица:');
{выводим получившуюся матрицу}
for i:=1 to n do
 begin
  sum[i]:=0;{сумма очков команды}
  nom[i]:=i;{ее номер}
  for j:=1 to n do
   begin
    if j<>i then write(tabl[i,j]:4)
    else write(#178:4);
    sum[i]:=sum[i]+tabl[i,j];
   end;
  writeln;
 end;
{сортируем номера команд по убыванию сумм очков}
for i:=1 to n-1 do
for j:=i+1 to n do
if sum[i]<sum[j] then
 begin
  k:=sum[i];
  sum[i]:=sum[j];
  sum[j]:=k;
  k:=nom[i];
  nom[i]:=nom[j];
  nom[j]:=k;
 end;
writeln('Номера команд в соответствии с занятыми местами:');
for i:=1 to n do
write(nom[i],' ');
readln
end.