Написать программу на ЯП Паскаль. У равнобедренной трапеции основания равны N и M, боковая сторона равна K. Найти периметр трапеции?Прошу помогите,срочно надо

Спасибо

var n,m,k,p:integer;beginwriteln('n, m, k:');readln(n,m,k);p:=n+m+2*k;writeln('p = ',p);end.Пример:n, m, k: 5 3 4p = 16