Program z1; {в конце этой и каждой следующей строки дописываем ";"}
Var N : integer; {вместо "-" ставим ":" и }
Begin write( 'введи число' ); { содержимое скобок берем в кавычки }
read ( N);
N :=2*N; {перед знаком "=" дописываем двоеточие}
write ('N=', N, ' молодец.'); { через запчтую дописываем в кавычках молодец}
End.