Помогите написать простенькие программки!

> пофиг на язык
Ну-ну.

1)
.386
.model flat, stdcall
option casemap:none

include windows.inc
include kernel32.inc
include msvcrt.inc
include masm32.inc
includelib kernel32.lib
includelib msvcrt.lib
includelib masm32.lib

.stack 100h

.data
ErrTxt db 'Ошибка! ',0
Prompt db 'Введите N (целое от 1 до 20): ',0
ResTxt db 'Отношение = %s',0
InpFrm db '%d',0
ExitFrm db '\n',0

.data?
N dd ?
Sum dd ?
Result dq ?
Buffer db 64 dup (?)

.code
Err:
invoke crt_printf,addr ErrTxt
invoke crt__flushall
N80843707:
invoke crt_printf,addr Prompt
invoke crt_scanf,addr InpFrm,addr N
or eax,eax
jz Err
mov eax,N
cmp eax,1
jl Err
cmp eax,20
jg Err
mov edx,eax
inc edx
mul edx
shr eax,1
mov Sum,eax
finit
fld1
mov ecx,N
DoLoop:
mov dword ptr Buffer,ecx
fimul dword ptr Buffer
loop DoLoop
fidiv Sum
fstp Result
invoke FloatToStr,Result,addr Buffer
invoke crt_printf,addr ResTxt,addr Buffer
invoke crt__flushall
invoke crt_scanf,addr ExitFrm
invoke ExitProcess,0
end N80843707

2)
class
N80843707
create
make
feature {NONE}
make
local
x1, x2, x3, y1, y2, y3, S: DOUBLE
do
x1 := input("Введите X1: ")
y1 := input("Введите Y1: ")
x2 := input("Введите X2: ")
y2 := input("Введите Y2: ")
x3 := input("Введите X3: ")
y3 := input("Введите Y3: ")
S := (x1 - x3) * (y2 - y3) - (x2 - x3) * (y1 - y3)
S := S.abs / 2
io.put_string ("Площадь треугольника = ")
io.put_double (S)
end

feature {NONE}
input(s: string): double
do
io.put_string (s)
io.read_double
Result := io.last_double
end

end