Все ошибки я писал с верху в них.
Я конечно не знаю Паскаля, но нашёл много ошибок.
Первая ошибка в слове "begim", я полагаю там должно стоять "begin".
Далее в следующей же строке ошибка в writeln.
Ошибка в readln(a), почему там стоят одинарные скобки?
В следующей строке ошибка в том, что забыли в конце поставить точку с запятой.
Опять таки в readln(c) забыли поставить точку с запятой.
Ошибка в формулах, вместо b подставь d.
Опять две строки writeln не заканчиваются точкой и запятой.
end вместо enb. (ещё, если я правильно понял, поставь точку)
then вместо them
Опять ошибка с формулой, вместо b подставь d и найди корень d с помощью sqrt.
Опять ошибка в строке writeln. (написано просто write)
Вместо точки с запятой поставь просто точку (end;)
Опять меняем them на then.
Опять ошибка в строке writeln. (написано просто write)
Ну и последняя ошибка, текст не занесён в одинарные скобки.