5 CLS 8 PRINT " SUPERFICIAR :" 10 CLS 20 INPUT "DIME CUANTOS PUNTOS DELIMITAN EL AREA QUE VAMOS A CALCULAR";N 30 INPUT "X1";X1 40 INPUT "Y1";Y1 50 INPUT "X2";X2 60 INPUT "Y2";Y2 70 H=(X2-X1)*(Y1+Y2) 75 Z=X2 76 O=Y2 79 L=0 80 FOR I=3 TO N 90 PRINT "X";I;;:INPUT X3 100 PRINT "Y";I;:INPUT Y3 110 J=(X3-Z)*(O+Y3) 120 Z=X3 130 O=Y3 140 L=L+J 150 NEXT I 160 W=(X1-Z)*(O+Y1) 170 A=(H+L+W)/2 180 PRINT "EL AREA ES =";A 190 END