Нужно составить програмку, чтоб решить пример: 39*54-84 в квадрате. program product; var a,b,c: integer; a: =39*54-sqr(84)); readln end. напишите ошибку, ну и объясните, если не сложно)

Program product;

var a,b,c:integer;

Begin

a:=39*54-sqr(84);

writeln(a);

end.

Вывод отстутсвует, отсутствует начало программы 'Begin'

Program product;

uses crt;

var a,b,c:integer;

clrscr;

Begin

a:=39*54-sqr(84);

writeln(a);

readkey;

end