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

№1
На паскале:

program perimtr;
uses crt;
var a,b,c,p : real;
begin
write('Введите стороны треугольника');
readln(a,b,c);
p:=a+b+c;
write('Периметр треугольника равен:',p);
end.