Как составить программу ?

CLS
INPUT "pervyi ugol"; x
INPUT "vtoroy ugol"; y
IF x<=0 OR y<=0 THEN ? "takogo treugolnika ne suchestvuet"
t=x+y
IF t>=180 THEN ? "takogo treugolnika ne suchestvuet" ELSE ? 180 - t
IF t=90 OR x=90 OR y=90 THEN ? "treugolnik pryamougolnyi" ELSE ? "treugolnik ne pryamougolnyi"

CLS
1 INPUT "y=";y
INPUT "x="; x
IF x=y THEN GOTO 1
IF x>y THEN x = 2*x*y  ELSE x=(x+y) / 2
IF x<y THEN y=2*x*y ELSE y=(x+y)/2
? "y="; y
? "x="; x

CLS
INPUT "m="; m
INPUT "n="; n
e = n
r = m
IF e = r THEN n = 0
IF r = e THEN m = 0
IF e > r THEN m = e
IF e < r THEN n = r
PRINT "m="; m
PRINT "n="; n

CLS
INPUT "m="; m%
INPUT "n="; n%
IF m%<>n% THEN
 IF m%>n% THEN n%=m%
 IF m%<n% THEN m%=n%
ELSE
 m%=0: n%=0
END IF
PRINT "m="; m
PRINT "n="; n

CLS
INPUT "Chislo="; a
s=0: i=0: c=a
DO WHILE c>0
 s=s+c MOD 10
 c=c\10
 i=i+1
LOOP
IF i=3 THEN
 IF (a^2)=(s^3) THEN
  PRINT "Kvadrat zadannogo trehznachnogo chisla = kubu summi cifr etogo chisla"
 ELSE
  PRINT "Kvadrat zadannogo trehznachnogo chisla ne raven kubu summi cifr etogo chisla"
 END IF
ELSE 
 PRINT "Vvedennoye chislo ne trehznachnoye"
END IF

CLS
INPUT "m="; m%
INPUT "n="; n%
IF m%<>n% THEN
 IF m%>n% THEN n%=m%
 IF m%<n% THEN m%=n%
ELSE
 m%=0: n%=0
END IF
PRINT "m="; m%
PRINT "n="; n%