Ошибка в коде

[maxer2012]

Подскажите в чем ошибка writeln(prim1 A:='' ; B:='') ;

[Stilet]

В неверно описанных параметрах этой процедуры. writeln('prim1 A:=', 'B:=') ;

[maxer2012]

Исправил 2 строку, ноопять что то не так, первую строку подчеркивает. Хотя написал вроде правильно
A:= x+(x+y/(5+sqrt(x)))/(abs(y-x)+Sqrt(x));
writeln('prim1 A:=', 'B:=') ;

вот весь код, теперь окно выводит но не выводит ответ

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, Math;

var
  a,b,x,y,u,v :real;

begin
  //prim1
 x:=46.81; y:=-5.5; u:=-2.3; v:=-0.8;
A:= x+(x+y/(5+sqrt(x)))/(abs(y-x)+Sqrt(x));
 writeln('prim1 A:=', 'B:=') ;
    readln;
end .

все проблему решил

[Stilet]

Ну ды наверное потому что нужно в writeln приписать вывод переменных
Что в методичке написано? Как преподаватель показывал?