Написать программу на яп паскаль. у равнобедренной трапеции основания равны n и m, боковая сторона равна k. найти периметр трапеции надо

Var n,m,k,p:integer;
begin
writeln('n, m, k:');
readln(n,m,k);
p:=n+m+2*k;
writeln('p = ',p);
end.

Пример:
n, m, k:
5 3 4
p = 16