program mcfdncfio;

uses crt;

var a,b,c,p:integer;

begin

a:=5;

b:=3;

c:=sqrt(sqr(a)+sqr(b));

p:=a+b+c;

writeln(p);

readln;

end.

Если не работает, то для c отдельно напиши 

c:real;

program pr1;

var a,b,c,p:integer;

begin

a:=5;

b:=3;

c:=sqrt(sqr(a)+sqr(b));

p:=a+b+c;

writeln ( ' периметр треугольника равен ' );

writeln(p);

end.