Написать программу, определяющую, будут ли прямые A1x + B1y + C1 = 0 и A2x + B2y + C2 = 0 перпендикулярны. Если нет, то найти угол между ними — Pascal(Паскаль)

uses crt;
var a1,b1,c1,a2,b2,c2:integer;
begin
clrscr;
writeln('Введите коэффициенты первой прямой:');
readln(a1,b1,c1);
writeln('Введите коэффициенты второй прямой:');
readln(a2,b2,c2);
if a1*a2+b1*b2=0 then
writeln('Прямые перпендикулярны!')
else
 begin
  writeln('Прямые не перпендикулярны!');
  writeln('Угол между ними=',abs(arctan((a1*b2-a2*b1)/(a1*a2+b1*b2))*180/pi):0:0,#248);
 end;
readln
end.