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