помогите с Фортраном 77 ыыы

[DiSi]

Program s3
print*,'vedite kytovuy skorost'
read*,w
t=1200
n=(w*t)/(2*3.14)
if n<10000 then
print 10,n
10 Format(a0,f6,0)
else if n>=10000 then
print 11,n
11 Format(a0,f5,1)
end if
end

вот код ошибка в строках
if n<10000 then
else if n>=10000 then

че ему по синтаксу не нравиться?((
и если не сложно обясниет на счет оператотора формат а то не оч его понял


пс я делфи кодер( ненавижу фортран(((

[НTL]

if n<10000 then
begin
Бла бла
end
else
begin
if n>=10000 then
begin
бла бла
end;
end;

Ну а если по теме то "if n>=10000 then" тебе не надо т.к. если это не n<10000 тогда это n>=10000

Из этого нам надо такой код...

if n<10000 then
begin
Бла бла
end // Без ";"!!!
else
begin
Бла бла
end;
end;

ПСы: Это делфи