помогите информатика

Program Perimetr;var a,b,c, P : integer;begin  writeln('Enter a, b, c : ');  readln(a, b, c);  P:= a + b + c;  writeln('Perimetr = ', P);end.