Решите пожалуйста даю 99 баллов

Program Perimeter;
Var a,b,c,p: real;
Begin
Writeln('Введите 3 стороны через пробел: ');
Readln(a,b,c);
p:=a+b+c;
Write('периметр: ',p);
End.