Write (ndivm +1)
Если не поймете - прокомментирую
Var n,m:real;
begin
repeat
writeln ('Введите два угла при параллельной стороне, в градусах');
readln(n,m);
until (n>0)and(m>0)and(n<180)and(m<180)and(m+(180-m)+n+(180-n)=360);
if (n=m)and(m=90) then writeln('Прямоугольник')
else if ((n=90)and(m<>90))or((m=90)and(n<>90)) then writeln('Прямоугольная трапеция')
else if (n=m) then writeln('Равнобедренная трапеция')
else writeln('Обыкновенная трапеция');
end.
Прозрачный менее нагружает оперативную память, потому и удобнее и наоборот.