Найдите ошибки в записи программки. Перепишите программу в исправленном виде.program

Найдите оплошности в записи программки. Перепишите программку в исправленном виде.
program exmpl
var C: real
begin
write ('Введите длины 3-х сторон треугольника:')
read (A, B, C)
write ('Периметр треугольника со гранями ', а, b, c,'=',)
S=A*B*C
end.
end.