Помогите!Практ 2й курс!Pascal Пажалуйста HELP

[qwerst]

2й курс политех, ABC Pascal,
Составить алгоритм и написать программу, проверки равенства треугольников по второму признаку ((/-угол)/A=/A1, /B=/B1, /AB=/A1B1)
Вводятся все три угла и все три стороны обоих треугольников

[Хыиуду]

Время индусского кода

Код: Выделить всё

  writeln('Введите углы: А, А1, В, В1, С, С1'); 
  readln (A, A1, B, B1);
  writeln ('Введите стороны: АВ, А1В1, АС, А1С1, ВС, В1С1');
  readln (AB, A1B1);
  if (A=A1) and (B=B1) and (AB=A1B1)
     writeln('Треугольники равны') else writeln('Треугольники не равны');